Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 StyleBox["Schwarszschild metric and the Birkhoff theorem\n",
  FontSize->36],
 StyleBox["Uses CTensor framework of ",
  FontSize->16],
 "xCoba",
 StyleBox[" ",
  FontSize->16]
}], "Subtitle"],

Cell["\<\
Cyril Pitrou (pitrou@iap.fr)
March 2018\
\>", "Subsubtitle"],

Cell["\<\
Summary: A basic example to show how to use CTensor in the case of the \
Schwarszschild metric.
We shod the Birkhoff theorem which states that stationary spherically \
symmetric space-time is necessary the Schwarszschild metric.
\
\>", "Subsubtitle"],

Cell[CellGroupData[{

Cell["Load xAct", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "xAct`xCoba`"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`xPerm`  version \"\>", 
   "\[InvisibleSpace]", "\<\"1.2.3\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2015", ",", "8", ",", "23"}], "}"}]}],
  SequenceForm["Package xAct`xPerm`  version ", "1.2.3", ", ", {2015, 8, 23}],
  
  Editable->False]], "Print"],

Cell[BoxData["\<\"CopyRight (C) 2003-2018, Jose M. Martin-Garcia, under the \
General Public License.\"\>"], "Print"],

Cell[BoxData["\<\"Connecting to external mac executable...\"\>"], "Print"],

Cell[BoxData["\<\"Connection established.\"\>"], "Print"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`xTensor`  version \"\>", 
   "\[InvisibleSpace]", "\<\"1.1.3\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2018", ",", "2", ",", "28"}], "}"}]}],
  SequenceForm[
  "Package xAct`xTensor`  version ", "1.1.3", ", ", {2018, 2, 28}],
  Editable->False]], "Print"],

Cell[BoxData["\<\"CopyRight (C) 2002-2018, Jose M. Martin-Garcia, under the \
General Public License.\"\>"], "Print"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Package xAct`xCoba`  version \"\>", 
   "\[InvisibleSpace]", "\<\"0.8.4\"\>", "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2018", ",", "2", ",", "28"}], "}"}]}],
  SequenceForm["Package xAct`xCoba`  version ", "0.8.4", ", ", {2018, 2, 28}],
  
  Editable->False]], "Print"],

Cell[BoxData["\<\"CopyRight (C) 2005-2018, David Yllanes and Jose M. \
Martin-Garcia, under the General Public License.\"\>"], "Print"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print"],

Cell[BoxData["\<\"These packages come with ABSOLUTELY NO WARRANTY; for \
details type Disclaimer[]. This is free software, and you are welcome to \
redistribute it under certain conditions. See the General Public License for \
details.\"\>"], "Print"],

Cell[BoxData["\<\"------------------------------------------------------------\
\"\>"], "Print"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"$CVSimplify", "=", "Simplify"}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Why", " ", "is", " ", "it", " ", "so", " ", 
    RowBox[{"useful", " ", "?"}]}], " ", "*)"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefManifold", "[", 
  RowBox[{"M4", ",", "4", ",", 
   RowBox[{"{", 
    RowBox[{
    "\[Alpha]", ",", "\[Beta]", ",", "\[Rho]", ",", "\[Sigma]", ",", "\[Mu]", 
     ",", "\[Nu]", ",", "\[Lambda]"}], "}"}]}], "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefManifold", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"manifold \"\>", "\[InvisibleSpace]", "M4", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefManifold, ": Defining ", 
   "manifold ", $CellContext`M4, ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefVBundle", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vbundle \"\>", "\[InvisibleSpace]", "TangentM4", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefVBundle, ": Defining ", 
   "vbundle ", $CellContext`TangentM4, ". ", ""],
  Editable->False]], "Print"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"DefMetric", "[", 
   RowBox[{
    RowBox[{"-", "1"}], ",", 
    RowBox[{"g", "[", 
     RowBox[{
      RowBox[{"-", "\[Alpha]"}], ",", 
      RowBox[{"-", "\[Beta]"}]}], "]"}], ",", "CD", ",", 
    RowBox[{"PrintAs", "->", "\"\<g\>\""}]}], 
   RowBox[{"(*", 
    RowBox[{",", 
     RowBox[{"FlatMetric", "\[Rule]", "True"}]}], "*)"}], "]"}], 
  "*)"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"DefScalarFunction", "/@", 
   RowBox[{"{", 
    RowBox[{"\[Lambda]tt", ",", "\[Lambda]rr", ",", "A"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"DefConstantSymbol", "[", "M", "]"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefScalarFunction", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"scalar function \"\>", "\[InvisibleSpace]", 
   "\[Lambda]tt", "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefScalarFunction, ": Defining ", 
   "scalar function ", $CellContext`\[Lambda]tt, ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefScalarFunction", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"scalar function \"\>", "\[InvisibleSpace]", 
   "\[Lambda]rr", "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefScalarFunction, ": Defining ", 
   "scalar function ", $CellContext`\[Lambda]rr, ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefScalarFunction", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"scalar function \"\>", "\[InvisibleSpace]", "A", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefScalarFunction, ": Defining ", 
   "scalar function ", $CellContext`A, ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefConstantSymbol", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"constant symbol \"\>", "\[InvisibleSpace]", "M", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefConstantSymbol, ": Defining ", 
   "constant symbol ", $CellContext`M, ". ", ""],
  Editable->False]], "Print"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "DefBasis"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"DefBasis[basis, vbundle, {c1, ..., cn}] defines a basis of \
vector fields with name basis on the given vbundle. Its dual -basis is also \
implicitly defined. The list of cnumbers {c1, ..., cn} denotes the integers \
identifying the element of the basis, and hence must have length equal to the \
dimension of the vbundle.\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info73731738696-7852094"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefChart", "[", 
  RowBox[{"B", ",", "M4", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "[", "]"}], ",", 
     RowBox[{"r", "[", "]"}], ",", 
     RowBox[{"\[Theta]", "[", "]"}], ",", 
     RowBox[{"\[Phi]", "[", "]"}]}], "}"}], ",", 
   RowBox[{"ChartColor", "\[Rule]", "Red"}]}], "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefChart", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"chart \"\>", "\[InvisibleSpace]", "B", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xCoba`DefChart, ": Defining ", "chart ", $CellContext`B, ". ", 
   ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", 
   RowBox[{"t", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", 
   $CellContext`t[], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", 
   RowBox[{"r", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", 
   $CellContext`r[], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", 
   RowBox[{"\[Theta]", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", 
   $CellContext`\[Theta][], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", 
   RowBox[{"\[Phi]", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", 
   $CellContext`\[Phi][], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefMapping", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"mapping \"\>", "\[InvisibleSpace]", "B", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefMapping, ": Defining ", "mapping ", $CellContext`B, 
   ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefMapping", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"inverse mapping \"\>", "\[InvisibleSpace]", "iB",
    "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefMapping, ": Defining ", 
   "inverse mapping ", $CellContext`iB, ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"mapping differential tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"diB", "[", 
    RowBox[{
     RowBox[{"-", "\[FormalA]"}], ",", "iB\[Alpha]"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "mapping differential tensor ", 
   $CellContext`diB[-\[FormalA], $CellContext`iB\[Alpha]], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"mapping differential tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"dB", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", "B\[FormalA]"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "mapping differential tensor ", 
   $CellContext`dB[-$CellContext`\[Alpha], $CellContext`B\[FormalA]], ". ", 
   ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefBasis", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"basis \"\>", "\[InvisibleSpace]", "B", 
   "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"Coordinated basis.\"\>"}],
  SequenceForm[
  "** ", xAct`xCoba`DefBasis, ": Defining ", "basis ", $CellContext`B, ". ", 
   "Coordinated basis."],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefCovD", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"parallel derivative \"\>", "\[InvisibleSpace]", 
   RowBox[{"PDB", "[", 
    RowBox[{"-", "\[Alpha]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefCovD, ": Defining ", "parallel derivative ", 
   $CellContext`PDB[-$CellContext`\[Alpha]], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vanishing torsion tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"TorsionPDB", "[", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Lambda]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing torsion tensor ", 
   $CellContext`TorsionPDB[$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Lambda]], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric Christoffel tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"ChristoffelPDB", "[", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Lambda]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "symmetric Christoffel tensor ", 
   $CellContext`ChristoffelPDB[$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Lambda]], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vanishing Riemann tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"RiemannPDB", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Lambda]"}], ",", "\[Mu]"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing Riemann tensor ", 
   $CellContext`RiemannPDB[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Lambda], $CellContext`\[Mu]], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vanishing Ricci tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"RicciPDB", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing Ricci tensor ", 
   $CellContext`RicciPDB[-$CellContext`\[Alpha], -$CellContext`\[Beta]], ". ",
    ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"antisymmetric +1 density \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"etaUpB", "[", 
    RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Lambda]", ",", "\[Lambda]1"}],
     "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric +1 density ", 
   $CellContext`etaUpB[$CellContext`\[Alpha], $CellContext`\[Beta], \
$CellContext`\[Lambda], $CellContext`\[Lambda]1], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"antisymmetric -1 density \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"etaDownB", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Lambda]"}], ",", 
     RowBox[{"-", "\[Lambda]1"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric -1 density ", 
   $CellContext`etaDownB[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Lambda], -$CellContext`\[Lambda]1], ". ", ""],
  Editable->False]], "Print"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Stationary and spherically symmetric metric", "Subsubsection"],

Cell["\<\
We choose a spherically symmetric metric (the last 2x2 part of the metric), \
and stationary (does not depend on time)\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "=", 
   RowBox[{"CTensor", "[", 
    RowBox[{
     RowBox[{"DiagonalMatrix", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Exp", "[", 
          RowBox[{"\[Lambda]tt", "[", 
           RowBox[{"r", "[", "]"}], "]"}], "]"}]}], ",", 
        RowBox[{"Exp", "[", 
         RowBox[{"\[Lambda]rr", "[", 
          RowBox[{"r", "[", "]"}], "]"}], "]"}], ",", 
        RowBox[{
         RowBox[{"r", "[", "]"}], "^", "2"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"r", "[", "]"}], "^", "2"}], 
         RowBox[{
          RowBox[{"Sin", "[", 
           RowBox[{"\[Theta]", "[", "]"}], "]"}], "^", "2"}]}]}], "}"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "B"}], ",", 
       RowBox[{"-", "B"}]}], "}"}]}], "]"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"g", "[", 
  RowBox[{
   RowBox[{"-", "\[Mu]"}], ",", 
   RowBox[{"-", "\[Nu]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"g", "[", 
  RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               InterpretationBox[
                StyleBox["\[Lambda]tt",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Lambda]tt,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "]"}]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
              RowBox[{"-", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]tt, 
                    Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]]}]}]],
           Annotation[#, {1, 1} -> -E^$CellContext`\[Lambda]tt[
                $CellContext`r[]], "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              InterpretationBox[
               StyleBox["\[Lambda]rr",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`\[Lambda]rr,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "]"}]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                 InterpretationBox[
                  StyleBox[
                   RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, 
                   ShowAutoStyles -> False], $CellContext`\[Lambda]rr, 
                  Editable -> False], "[", 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False], "]"}]]}]],
           Annotation[#, {2, 2} -> E^$CellContext`\[Lambda]rr[
               $CellContext`r[]], "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            SuperscriptBox[
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False], "2"],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", 
              SuperscriptBox[
               InterpretationBox[
                StyleBox[
                "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`r[], Editable -> False], "2"]}]],
           Annotation[#, {3, 3} -> $CellContext`r[]^2, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "2"], " ", 
             SuperscriptBox[
              RowBox[{
               InterpretationBox[
                StyleBox["Sin",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Sin,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], "2"]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", 
              RowBox[{
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False], "2"], " ", 
                SuperscriptBox[
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], 
                 "2"]}]}]],
           Annotation[#, {4, 4} -> $CellContext`r[]^2 Sin[
                $CellContext`\[Theta][]]^2, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]},
           "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {" ", " "},
         {"\[Mu]", "\[Nu]"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{-E^$CellContext`\[Lambda]tt[
        $CellContext`r[]], 0, 0, 0}, {0, E^$CellContext`\[Lambda]rr[
       $CellContext`r[]], 0, 0}, {0, 0, $CellContext`r[]^2, 0}, {
    0, 0, 0, $CellContext`r[]^2 Sin[
        $CellContext`\[Theta][]]^2}}, {-$CellContext`B, -$CellContext`B}, 
   0][-$CellContext`\[Mu], -$CellContext`\[Nu]],
  Editable->False]], "Output"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"MetricsOfVBundle", "::", "missing"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"There is no \
\[NoBreak]\\!\\(\\*RowBox[{\\\"\\\\\\\"metric\\\\\\\"\\\"}]\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\*InterpretationBox[StyleBox[\\\"\[DoubleStruckCapitalT]M4\\\
\", Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], TangentM4, \
Rule[Editable, False]]\\)\[NoBreak].\"\>"}]], "Message", "MSG"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Throw", "::", "nocatch"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Uncaught \[NoBreak]\\!\\(\\*RowBox[{\\\"Throw\\\", \\\"[\\\
\", \\\"Null\\\", \\\"]\\\"}]\\)\[NoBreak] returned to top level. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Throw/nocatch\\\", \
ButtonNote -> \\\"Throw::nocatch\\\"]\\)\"\>"}]], "Message", "MSG"],

Cell[BoxData[
 RowBox[{"Hold", "[", 
  RowBox[{"Throw", "[", "Null", "]"}], "]"}]], "Output"]
}, Open  ]],

Cell["We need a metric to raise indices", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "SetCMetric"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"SetCMetric[met, ch] sets met, a CTensor[matrix, {-basis, \
-basis}] object, as metric for the vector bundle of the given basis. It is \
assumed to be a field on the coordinate chart ch. Some auxiliary objects, \
like metric derivatives and Christoffel values are precomputed. \
SetCMetric[met, tor, ch] adds the torsion tensor tor to the covariant \
derivative associated to the metric met. An option SignatureOfMetric -> {np, \
nn, nz} explicitly specifies the signature of the metric.\"\>", 
  "MSG"]], "Print", "PrintUsage",
 CellTags->"Info123731738697-7852094"]
}, Open  ]],

Cell["So we tell xCoba that g is the metric", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"SetCMetric", "[", 
  RowBox[{"g", ",", "B", ",", 
   RowBox[{"SignatureOfMetric", "->", 
    RowBox[{"{", 
     RowBox[{"3", ",", "1", ",", "0"}], "}"}]}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"g", "[", 
  RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}]}], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            RowBox[{"-", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"-", 
               RowBox[{
                InterpretationBox[
                 StyleBox["\[Lambda]tt",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`\[Lambda]tt,
                 Editable->False], "[", 
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False], "]"}]}]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
              RowBox[{"-", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{"-", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]tt, 
                    Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}]]}]}]],
           Annotation[#, {1, 1} -> -E^(-$CellContext`\[Lambda]tt[
                 $CellContext`r[]]), "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", 
              RowBox[{
               InterpretationBox[
                StyleBox["\[Lambda]rr",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Lambda]rr,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "]"}]}]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]rr, 
                    Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}]]}]],
           Annotation[#, {2, 2} -> E^(-$CellContext`\[Lambda]rr[
                $CellContext`r[]]), "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox["1", 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "2"]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", 
              FractionBox["1", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], "2"]]}]],
           Annotation[#, {3, 3} -> $CellContext`r[]^(-2), "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             SuperscriptBox[
              RowBox[{
               InterpretationBox[
                StyleBox["Csc",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Csc,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], "2"], 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "2"]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", 
              FractionBox[
               SuperscriptBox[
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], "2"]]}]],
           Annotation[#, {4, 4} -> Csc[
                $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2), 
            "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]},
           "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"\[Mu]", "\[Nu]"},
         {" ", " "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{-E^(-$CellContext`\[Lambda]tt[
         $CellContext`r[]]), 0, 0, 0}, {0, E^(-$CellContext`\[Lambda]rr[
        $CellContext`r[]]), 0, 0}, {0, 0, $CellContext`r[]^(-2), 0}, {
    0, 0, 0, Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2)}}, {$CellContext`B, \
$CellContext`B}, 0][$CellContext`\[Mu], $CellContext`\[Nu]],
  Editable->False]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SignDetOfMetric", "[", "g", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"-", "1"}]], "Output"]
}, Open  ]],

Cell["We compute all curvature tensor related to g", "Text"],

Cell[BoxData[
 RowBox[{"MetricCompute", "[", 
  RowBox[{"g", ",", "B", ",", "All"}], "]"}]], "Input"],

Cell["We define the CD associated to g", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CD", "=", 
   RowBox[{"LC", "[", "g", "]"}]}], ";"}]], "Input"],

Cell["Ricci does not vanishes (yet) as expect", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"xAct`xCoba`$LargeComponentSize", "=", "3000"}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{
   "This", " ", "is", " ", "to", " ", "make", " ", "sure", " ", "expressions",
     " ", "are", " ", "displayed"}], " ", "*)"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Ricci", "[", "CD", "]"}], "[", 
  RowBox[{"\[Mu]", ",", 
   RowBox[{"-", "\[Nu]"}]}], "]"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"-", 
                 RowBox[{
                  InterpretationBox[
                   StyleBox["\[Lambda]rr",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`\[Lambda]rr,
                   Editable->False], "[", 
                  InterpretationBox[
                   StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`r[],
                   Editable->False], "]"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"4", "-", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False], " ", 
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox["\[Lambda]rr",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Lambda]rr,
                    Editable->False], "\[Prime]",
                    MultilineFunction->None], "[", 
                    InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False], "]"}]}]}], ")"}], " ", 
                  RowBox[{
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox["\[Lambda]tt",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Lambda]tt,
                    Editable->False], "\[Prime]",
                    MultilineFunction->None], "[", 
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False], "]"}]}], "+", 
                 RowBox[{
                  InterpretationBox[
                   StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`r[],
                   Editable->False], " ", 
                  SuperscriptBox[
                   RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox["\[Lambda]tt",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Lambda]tt,
                    Editable->False], "\[Prime]",
                    MultilineFunction->None], "[", 
                    InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False], "]"}], "2"]}], "+", 
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`r[],
                   Editable->False], " ", 
                  RowBox[{
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox["\[Lambda]tt",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Lambda]tt,
                    Editable->False], "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", 
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False], "]"}]}]}], ")"}]}], 
              RowBox[{"4", " ", 
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False]}]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
              RowBox[{"-", 
                FractionBox[
                 RowBox[{
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"-", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]rr, 
                    Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}]], " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], " ", 
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]rr, 
                    Editable -> False], "\[Prime]", MultilineFunction -> 
                    None], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}]}], ")"}], 
                    " ", 
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]tt, 
                    Editable -> False], "\[Prime]", MultilineFunction -> 
                    None], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}], "+", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], " ", 
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]tt, 
                    Editable -> False], "\[Prime]", MultilineFunction -> 
                    None], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}], "2"]}], "+", 
                    
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], " ", 
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]tt, 
                    Editable -> False], "\[Prime]\[Prime]", MultilineFunction -> 
                    None], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}]}], ")"}]}], 
                 
                 RowBox[{"4", " ", 
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}]]}]}]],
           
           Annotation[#, {1, 1} -> 
            Rational[-1, 4] E^(-$CellContext`\[Lambda]rr[
                 $CellContext`r[]]) $CellContext`r[]^(-1) ((
                4 - $CellContext`r[] Derivative[1][$CellContext`\[Lambda]rr][
                  $CellContext`r[]]) Derivative[1][$CellContext`\[Lambda]tt][
                 $CellContext`r[]] + $CellContext`r[] 
               Derivative[1][$CellContext`\[Lambda]tt][
                  $CellContext`r[]]^2 + 
              2 $CellContext`r[] Derivative[2][$CellContext`\[Lambda]tt][
                 $CellContext`r[]]), "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["\[Lambda]rr",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Lambda]rr,
                  Editable->False], "[", 
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False], "]"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox["\[Lambda]rr",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Lambda]rr,
                    Editable->False], "\[Prime]",
                   MultilineFunction->None], "[", 
                  InterpretationBox[
                   StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`r[],
                   Editable->False], "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"4", "+", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False], " ", 
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox["\[Lambda]tt",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Lambda]tt,
                    Editable->False], "\[Prime]",
                    MultilineFunction->None], "[", 
                    InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False], "]"}]}]}], ")"}]}], "-", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox["\[Lambda]tt",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Lambda]tt,
                    Editable->False], "\[Prime]",
                    MultilineFunction->None], "[", 
                    InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False], "]"}], "2"], "+", 
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox["\[Lambda]tt",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Lambda]tt,
                    Editable->False], "\[Prime]\[Prime]",
                    MultilineFunction->None], "[", 
                    InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False], "]"}]}]}], ")"}]}]}], ")"}]}], 
             RowBox[{"4", " ", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]}]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"-", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]rr, 
                    Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}]], " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]rr, 
                    Editable -> False], "\[Prime]", MultilineFunction -> 
                    None], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"4", "+", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], " ", 
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]tt, 
                    Editable -> False], "\[Prime]", MultilineFunction -> 
                    None], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}]}], ")"}]}], 
                    "-", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]tt, 
                    Editable -> False], "\[Prime]", MultilineFunction -> 
                    None], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}], "2"], "+", 
                    RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]tt, 
                    Editable -> False], "\[Prime]\[Prime]", MultilineFunction -> 
                    None], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}]}], 
                    ")"}]}]}], ")"}]}], 
               RowBox[{"4", " ", 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]}]]}]],
           Annotation[#, {2, 2} -> Rational[1, 4] E^(-$CellContext`\[Lambda]rr[
                 $CellContext`r[]]) $CellContext`r[]^(-1) (
              Derivative[1][$CellContext`\[Lambda]rr][
                 $CellContext`r[]] (
                4 + $CellContext`r[] Derivative[1][$CellContext`\[Lambda]tt][
                   $CellContext`r[]]) - $CellContext`r[] (
               Derivative[1][$CellContext`\[Lambda]tt][
                  $CellContext`r[]]^2 + 
               2 Derivative[2][$CellContext`\[Lambda]tt][
                  $CellContext`r[]])), "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["\[Lambda]rr",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Lambda]rr,
                  Editable->False], "[", 
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False], "]"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2"}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   InterpretationBox[
                    StyleBox["\[Lambda]rr",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Lambda]rr,
                    Editable->False], "[", 
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False], "]"}]]}], "+", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False], " ", 
                 RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox["\[Lambda]rr",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Lambda]rr,
                    Editable->False], "\[Prime]",
                   MultilineFunction->None], "[", 
                  InterpretationBox[
                   StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`r[],
                   Editable->False], "]"}]}], "-", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False], " ", 
                 RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox["\[Lambda]tt",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Lambda]tt,
                    Editable->False], "\[Prime]",
                   MultilineFunction->None], "[", 
                  InterpretationBox[
                   StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`r[],
                   Editable->False], "]"}]}]}], ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]}]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"-", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]rr, 
                    Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}]], " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]rr, 
                    Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]]}], "+", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], " ", 
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]rr, 
                    Editable -> False], "\[Prime]", MultilineFunction -> 
                    None], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}], "-", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], " ", 
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]tt, 
                    Editable -> False], "\[Prime]", MultilineFunction -> 
                    None], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}]}], ")"}]}], 
               
               RowBox[{"2", " ", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]}]]}]],
           Annotation[#, {3, 3} -> Rational[1, 2] E^(-$CellContext`\[Lambda]rr[
                 $CellContext`r[]]) $CellContext`r[]^(-2) (-2 + 
              2 E^$CellContext`\[Lambda]rr[
                  $CellContext`r[]] + $CellContext`r[] 
               Derivative[1][$CellContext`\[Lambda]rr][
                 $CellContext`r[]] - $CellContext`r[] 
              Derivative[1][$CellContext`\[Lambda]tt][
                $CellContext`r[]]), "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"-", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["\[Lambda]rr",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`\[Lambda]rr,
                  Editable->False], "[", 
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False], "]"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2"}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   InterpretationBox[
                    StyleBox["\[Lambda]rr",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Lambda]rr,
                    Editable->False], "[", 
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False], "]"}]]}], "+", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False], " ", 
                 RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox["\[Lambda]rr",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Lambda]rr,
                    Editable->False], "\[Prime]",
                   MultilineFunction->None], "[", 
                  InterpretationBox[
                   StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`r[],
                   Editable->False], "]"}]}], "-", 
                RowBox[{
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False], " ", 
                 RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox["\[Lambda]tt",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Lambda]tt,
                    Editable->False], "\[Prime]",
                   MultilineFunction->None], "[", 
                  InterpretationBox[
                   StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`r[],
                   Editable->False], "]"}]}]}], ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "2"]}]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"-", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]rr, 
                    Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}]], " ", 
                 RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "2"}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]rr, 
                    Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]]}], "+", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], " ", 
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]rr"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]rr, 
                    Editable -> False], "\[Prime]", MultilineFunction -> 
                    None], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}], "-", 
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], " ", 
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"\[Lambda]tt"}], AutoSpacing -> False, 
                    ShowAutoStyles -> False], $CellContext`\[Lambda]tt, 
                    Editable -> False], "\[Prime]", MultilineFunction -> 
                    None], "[", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}]}], ")"}]}], 
               
               RowBox[{"2", " ", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "2"]}]]}]],
           Annotation[#, {4, 4} -> Rational[1, 2] E^(-$CellContext`\[Lambda]rr[
                 $CellContext`r[]]) $CellContext`r[]^(-2) (-2 + 
              2 E^$CellContext`\[Lambda]rr[
                  $CellContext`r[]] + $CellContext`r[] 
               Derivative[1][$CellContext`\[Lambda]rr][
                 $CellContext`r[]] - $CellContext`r[] 
              Derivative[1][$CellContext`\[Lambda]tt][
                $CellContext`r[]]), "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]},
           "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"\[Mu]", " "},
         {" ", "\[Nu]"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{Rational[-1, 4] E^(-$CellContext`\[Lambda]rr[
         $CellContext`r[]]) $CellContext`r[]^(-1) ((4 - $CellContext`r[] 
        Derivative[1][$CellContext`\[Lambda]rr][
          $CellContext`r[]]) Derivative[1][$CellContext`\[Lambda]tt][
         $CellContext`r[]] + $CellContext`r[] 
       Derivative[1][$CellContext`\[Lambda]tt][
          $CellContext`r[]]^2 + 
      2 $CellContext`r[] Derivative[2][$CellContext`\[Lambda]tt][
         $CellContext`r[]]), 0, 0, 0}, {
    0, Rational[1, 4] E^(-$CellContext`\[Lambda]rr[
         $CellContext`r[]]) $CellContext`r[]^(-1) (
      Derivative[1][$CellContext`\[Lambda]rr][
         $CellContext`r[]] (
        4 + $CellContext`r[] Derivative[1][$CellContext`\[Lambda]tt][
           $CellContext`r[]]) - $CellContext`r[] (
       Derivative[1][$CellContext`\[Lambda]tt][
          $CellContext`r[]]^2 + 2 Derivative[2][$CellContext`\[Lambda]tt][
          $CellContext`r[]])), 0, 0}, {
    0, 0, Rational[1, 2] E^(-$CellContext`\[Lambda]rr[
         $CellContext`r[]]) $CellContext`r[]^(-2) (-2 + 
      2 E^$CellContext`\[Lambda]rr[
          $CellContext`r[]] + $CellContext`r[] 
       Derivative[1][$CellContext`\[Lambda]rr][
         $CellContext`r[]] - $CellContext`r[] 
      Derivative[1][$CellContext`\[Lambda]tt][
        $CellContext`r[]]), 0}, {
    0, 0, 0, Rational[1, 2] E^(-$CellContext`\[Lambda]rr[
         $CellContext`r[]]) $CellContext`r[]^(-2) (-2 + 
      2 E^$CellContext`\[Lambda]rr[
          $CellContext`r[]] + $CellContext`r[] 
       Derivative[1][$CellContext`\[Lambda]rr][
         $CellContext`r[]] - $CellContext`r[] 
      Derivative[1][$CellContext`\[Lambda]tt][
        $CellContext`r[]])}}, {$CellContext`B, -$CellContext`B}, 
   0][$CellContext`\[Mu], -$CellContext`\[Nu]],
  Editable->False]], "Output"]
}, Open  ]],

Cell["Killing vector of the spherical symmetry", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"KV1", "=", 
   RowBox[{"CTensor", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", "B", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"KV2", "=", 
   RowBox[{"CTensor", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       RowBox[{"Cos", "[", 
        RowBox[{"\[Phi]", "[", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cot", "[", 
          RowBox[{"\[Theta]", "[", "]"}], "]"}]}], 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", "[", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", "B", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"KV3", "=", 
   RowBox[{"CTensor", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       RowBox[{"-", 
        RowBox[{"Sin", "[", 
         RowBox[{"\[Phi]", "[", "]"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"Cot", "[", 
          RowBox[{"\[Theta]", "[", "]"}], "]"}]}], 
        RowBox[{"Cos", "[", 
         RowBox[{"\[Phi]", "[", "]"}], "]"}]}]}], "}"}], ",", 
     RowBox[{"{", "B", "}"}]}], "]"}]}], ";"}]}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Symmetrize", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"CD", "[", "\[Mu]", "]"}], "@", 
    RowBox[{"KV1", "[", "\[Nu]", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Mu]", ",", "\[Nu]"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Symmetrize", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"CD", "[", "\[Mu]", "]"}], "@", 
    RowBox[{"KV2", "[", "\[Nu]", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Mu]", ",", "\[Nu]"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Symmetrize", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"CD", "[", "\[Mu]", "]"}], "@", 
    RowBox[{"KV3", "[", "\[Nu]", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Mu]", ",", "\[Nu]"}], "}"}]}], "]"}]}], "Input"],

Cell[BoxData["0"], "Output"],

Cell[BoxData["0"], "Output"],

Cell[BoxData["0"], "Output"]
}, Open  ]],

Cell["KVF of stationarity", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"KVt", "=", 
   RowBox[{"CTensor", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", "B", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Symmetrize", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"CD", "[", "\[Mu]", "]"}], "@", 
    RowBox[{"KVt", "[", "\[Nu]", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Mu]", ",", "\[Nu]"}], "}"}]}], "]"}]}], "Input"],

Cell[BoxData["0"], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Birkhoff theorem", "Subsubsection"],

Cell[BoxData[
 RowBox[{"We", " ", "solve", " ", "the", " ", 
  SubscriptBox["G", "tt"], " ", "and", " ", "the", " ", 
  SubscriptBox["G", "rr"], " ", "part", " ", "of", " ", "the", " ", 
  "Einstein", " ", "equations", " ", "in", " ", "vacuum"}]], "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"G", "=", 
   RowBox[{"Einstein", "[", "CD", "]"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"G", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "B"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "B"}]}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      RowBox[{
       InterpretationBox[
        StyleBox["\[Lambda]rr",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`\[Lambda]rr,
        Editable->False], "[", 
       InterpretationBox[
        StyleBox["r",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`r[],
        Editable->False], "]"}]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        InterpretationBox[
         StyleBox["\[Lambda]rr",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[Lambda]rr,
         Editable->False], "[", 
        InterpretationBox[
         StyleBox["r",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`r[],
         Editable->False], "]"}]], "+", 
      RowBox[{
       InterpretationBox[
        StyleBox["r",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`r[],
        Editable->False], " ", 
       RowBox[{
        SuperscriptBox[
         InterpretationBox[
          StyleBox["\[Lambda]rr",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`\[Lambda]rr,
          Editable->False], "\[Prime]",
         MultilineFunction->None], "[", 
        InterpretationBox[
         StyleBox["r",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`r[],
         Editable->False], "]"}]}]}], ")"}]}], 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False], "2"]]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rule\[Lambda]s", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Flatten", "@", 
      RowBox[{"DSolve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"G", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"1", ",", "B"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", 
                   RowBox[{"-", "B"}]}], "}"}]}], "]"}], "\[Equal]", "0"}], 
              ",", 
              RowBox[{
               RowBox[{"G", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"2", ",", "B"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"2", ",", 
                   RowBox[{"-", "B"}]}], "}"}]}], "]"}], "\[Equal]", "0"}], 
              RowBox[{"(*", 
               RowBox[{",", 
                RowBox[{
                 RowBox[{"G", "[", 
                  RowBox[{"[", 
                   RowBox[{"1", ",", "2"}], "]"}], "]"}], "\[Equal]", "0"}], 
                ","}], "*)"}], ",", 
              RowBox[{
               RowBox[{"\[Lambda]rr", "[", "Infinity", "]"}], "\[Equal]", 
               "0"}]}], "}"}], ")"}], "/.", 
           RowBox[{
            RowBox[{"r", "[", "]"}], "\[Rule]", "r"}]}], "/.", 
          RowBox[{"\[Lambda]tt", "\[Rule]", "\[Lambda]ttV"}]}], "/.", 
         RowBox[{"\[Lambda]rr", "\[Rule]", "\[Lambda]rrV"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Lambda]ttV", ",", "\[Lambda]rrV"}], "}"}], ",", 
        RowBox[{"{", "r", "}"}]}], "]"}]}], ")"}], "/.", 
    RowBox[{
     RowBox[{"C", "[", "1", "]"}], "\[Rule]", 
     RowBox[{"Log", "[", 
      RowBox[{
       RowBox[{"-", "2"}], "M"}], "]"}]}]}], "/.", 
   RowBox[{
    RowBox[{"C", "[", "2", "]"}], "\[Rule]", "0"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "ifun"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Inverse functions are being used by \
\[NoBreak]\\!\\(\\*RowBox[{\\\"Solve\\\"}]\\)\[NoBreak], so some solutions \
may not be found; use Reduce for complete solution information. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", \
ButtonNote -> \\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"DSolve", "::", "bvnr"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"For some branches of the general solution, the given \
boundary conditions do not restrict the existing freedom in the general \
solution. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/DSolve/bvnr\\\", ButtonNote -> \
\\\"DSolve::bvnr\\\"]\\)\"\>"}]], "Message", "MSG"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[Lambda]rrV", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", "r", "}"}], ",", 
      RowBox[{"-", 
       RowBox[{
        InterpretationBox[
         StyleBox["Log",
          ShowAutoStyles->False,
          AutoSpacing->False],
         Log,
         Editable->False], "[", 
        RowBox[{"1", "+", 
         FractionBox[
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            InterpretationBox[
             StyleBox["Log",
              ShowAutoStyles->False,
              AutoSpacing->False],
             Log,
             Editable->False], "[", 
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             InterpretationBox[
              StyleBox["M",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`M,
              Editable->False]}], "]"}]], "r"]}], "]"}]}]}], "]"}]}], ",", 
   RowBox[{"\[Lambda]ttV", "\[Rule]", 
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", "r", "}"}], ",", 
      RowBox[{"0", "-", 
       RowBox[{
        InterpretationBox[
         StyleBox["Log",
          ShowAutoStyles->False,
          AutoSpacing->False],
         Log,
         Editable->False], "[", "r", "]"}], "+", 
       RowBox[{
        InterpretationBox[
         StyleBox["Log",
          ShowAutoStyles->False,
          AutoSpacing->False],
         Log,
         Editable->False], "[", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           InterpretationBox[
            StyleBox["Log",
             ShowAutoStyles->False,
             AutoSpacing->False],
            Log,
            Editable->False], "[", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            InterpretationBox[
             StyleBox["M",
              ShowAutoStyles->False,
              AutoSpacing->False],
             $CellContext`M,
             Editable->False]}], "]"}]], "+", "r"}], "]"}]}]}], "]"}]}]}], 
  "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"\[Lambda]tt", "=", 
  RowBox[{"\[Lambda]ttV", "/.", "Rule\[Lambda]s"}]}], "\[IndentingNewLine]", 
 RowBox[{"\[Lambda]rr", "=", 
  RowBox[{"\[Lambda]rrV", "/.", "Rule\[Lambda]s"}]}]}], "Input"],

Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", "r", "}"}], ",", 
   RowBox[{"0", "-", 
    RowBox[{
     InterpretationBox[
      StyleBox["Log",
       ShowAutoStyles->False,
       AutoSpacing->False],
      Log,
      Editable->False], "[", "r", "]"}], "+", 
    RowBox[{
     InterpretationBox[
      StyleBox["Log",
       ShowAutoStyles->False,
       AutoSpacing->False],
      Log,
      Editable->False], "[", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        InterpretationBox[
         StyleBox["Log",
          ShowAutoStyles->False,
          AutoSpacing->False],
         Log,
         Editable->False], "[", 
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         InterpretationBox[
          StyleBox["M",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`M,
          Editable->False]}], "]"}]], "+", "r"}], "]"}]}]}], "]"}]], "Output"],

Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", "r", "}"}], ",", 
   RowBox[{"-", 
    RowBox[{
     InterpretationBox[
      StyleBox["Log",
       ShowAutoStyles->False,
       AutoSpacing->False],
      Log,
      Editable->False], "[", 
     RowBox[{"1", "+", 
      FractionBox[
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         InterpretationBox[
          StyleBox["Log",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Log,
          Editable->False], "[", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          InterpretationBox[
           StyleBox["M",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`M,
           Editable->False]}], "]"}]], "r"]}], "]"}]}]}], "]"}]], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Schwarzschild metric", "Subsubsection"],

Cell["Now, with these rules, the metric and its Ricci are", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", 
   RowBox[{
    RowBox[{"-", "\[Mu]"}], ",", 
    RowBox[{"-", "\[Nu]"}]}], "]"}], "//", "Simplify"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               InterpretationBox[
                StyleBox["M",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`M,
                Editable->False]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", "1"}], "+", 
                FractionBox[
                 RowBox[{"2", " ", 
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]]}]}]],
           
           Annotation[#, {1, 1} -> -1 + 2 $CellContext`M/$CellContext`r[], 
            "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox["1", 
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"2", " ", 
                InterpretationBox[
                 StyleBox["M",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`M,
                 Editable->False]}], 
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False]]}]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              FractionBox["1", 
               RowBox[{"1", "-", 
                 FractionBox[
                  RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False]]}]]}]],
           
           Annotation[#, {2, 
             2} -> (1 - 2 $CellContext`M/$CellContext`r[])^(-1), 
            "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            SuperscriptBox[
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False], "2"],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", 
              SuperscriptBox[
               InterpretationBox[
                StyleBox[
                "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`r[], Editable -> False], "2"]}]],
           Annotation[#, {3, 3} -> $CellContext`r[]^2, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "2"], " ", 
             SuperscriptBox[
              RowBox[{
               InterpretationBox[
                StyleBox["Sin",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Sin,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], "2"]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", 
              RowBox[{
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False], "2"], " ", 
                SuperscriptBox[
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], 
                 "2"]}]}]],
           Annotation[#, {4, 4} -> $CellContext`r[]^2 Sin[
                $CellContext`\[Theta][]]^2, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]},
           "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {" ", " "},
         {"\[Mu]", "\[Nu]"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{-1 + 2 $CellContext`M/$CellContext`r[], 0, 0, 0}, {
    0, (1 - 2 $CellContext`M/$CellContext`r[])^(-1), 0, 0}, {
    0, 0, $CellContext`r[]^2, 0}, {0, 0, 0, $CellContext`r[]^2 Sin[
        $CellContext`\[Theta][]]^2}}, {-$CellContext`B, -$CellContext`B}, 
   0][-$CellContext`\[Mu], -$CellContext`\[Nu]],
  Editable->False]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ricci", "[", "CD", "]"}]], "Input"],

Cell[BoxData["Zero"], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Riemann and Kretschmann", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Riemann", "[", "CD", "]"}], "[", 
  RowBox[{
   RowBox[{"-", "\[Mu]"}], ",", 
   RowBox[{"-", "\[Nu]"}], ",", 
   RowBox[{"-", "\[Alpha]"}], ",", "\[Beta]"}], "]"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 1, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 1, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 1, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 2, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 2, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 2, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 3, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 3, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 3, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 4, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 4, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 4, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "1", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 1, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 2, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               FractionBox[
                RowBox[{"2", " ", 
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`M,
                    Editable->False]}], "-", 
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False]}], ")"}]}], 
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False], "4"]],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", 
                 FractionBox[
                  RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "-", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}], ")"}]}], 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "4"]]}]],
              
              Annotation[#, {1, 2, 1, 2} -> 
               2 $CellContext`M (
                 2 $CellContext`M - $CellContext`r[]) $CellContext`r[]^(-4), 
               "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 2, 1, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 2, 1, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox[
               RowBox[{"-", 
                FractionBox[
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`M,
                   Editable->False]}], 
                 RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False], "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    InterpretationBox[
                    StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`M,
                    Editable->False]}], "+", 
                    InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False]}], ")"}]}]]}],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", 
                 RowBox[{"-", 
                   FractionBox[
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], 
                    RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "+", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}], ")"}]}]]}]}]],
              
              Annotation[#, {1, 2, 2, 
                1} -> (-2) $CellContext`M $CellContext`r[]^(-2)/((-2) \
$CellContext`M + $CellContext`r[]), "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 2, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 2, 2, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 2, 2, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 2, 3, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 2, 3, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 2, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 2, 3, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 2, 4, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 2, 4, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 2, 4, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "2", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 2, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 3, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 3, 1, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               FractionBox[
                RowBox[{
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    InterpretationBox[
                    StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`M,
                    Editable->False]}], "+", 
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False]}], ")"}]}], 
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False], "4"]],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", 
                 FractionBox[
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "+", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}], ")"}]}], 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "4"]]}]],
              
              Annotation[#, {1, 3, 1, 
                3} -> $CellContext`M $CellContext`r[]^(-4) ((-2) \
$CellContext`M + $CellContext`r[]), "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 3, 1, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 3, 2, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 3, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 3, 2, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 3, 2, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox[
               FractionBox[
                InterpretationBox[
                 StyleBox["M",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`M,
                 Editable->False], 
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False]],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", 
                 FractionBox[
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False]]}]],
              
              Annotation[#, {1, 3, 3, 1} -> $CellContext`M/$CellContext`r[], 
               "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 3, 3, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 3, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 3, 3, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 3, 4, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 3, 4, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 3, 4, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "3", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 3, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 4, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 4, 1, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 4, 1, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               FractionBox[
                RowBox[{
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    InterpretationBox[
                    StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`M,
                    Editable->False]}], "+", 
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False]}], ")"}]}], 
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False], "4"]],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", 
                 FractionBox[
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "+", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}], ")"}]}], 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "4"]]}]],
              
              Annotation[#, {1, 4, 1, 
                4} -> $CellContext`M $CellContext`r[]^(-4) ((-2) \
$CellContext`M + $CellContext`r[]), "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 4, 2, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 4, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 4, 2, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 4, 2, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 4, 3, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 4, 3, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 4, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 4, 3, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox[
               FractionBox[
                RowBox[{
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False], " ", 
                 SuperscriptBox[
                  RowBox[{
                   InterpretationBox[
                    StyleBox["Sin",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    Sin,
                    Editable->False], "[", 
                   InterpretationBox[
                    StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Theta][],
                    Editable->False], "]"}], "2"]}], 
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False]],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", 
                 FractionBox[
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], " ", 
                    SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], 
                    "2"]}], 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False]]}]],
              
              Annotation[#, {1, 4, 4, 
                1} -> $CellContext`M $CellContext`r[]^(-1) Sin[
                   $CellContext`\[Theta][]]^2, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 4, 4, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 4, 4, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"1", ",", "4", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {1, 4, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}]},
         {GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 1, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               FractionBox[
                RowBox[{"2", " ", 
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    InterpretationBox[
                    StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`M,
                    Editable->False]}], "+", 
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False]}], ")"}]}], 
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False], "4"]],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", 
                 FractionBox[
                  RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "+", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}], ")"}]}], 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "4"]]}]],
              Annotation[#, {2, 1, 1, 2} -> 
               2 $CellContext`M $CellContext`r[]^(-4) ((-2) $CellContext`M + \
$CellContext`r[]), "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 1, 1, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 1, 1, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox[
               FractionBox[
                RowBox[{"2", " ", 
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False]}], 
                RowBox[{
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`r[],
                   Editable->False], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    InterpretationBox[
                    StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`M,
                    Editable->False]}], "+", 
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False]}], ")"}]}]],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", 
                 FractionBox[
                  RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], 
                  RowBox[{
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "2"], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "+", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}], ")"}]}]]}]],
              
              Annotation[#, {2, 1, 2, 1} -> 
               2 $CellContext`M $CellContext`r[]^(-2)/((-2) $CellContext`M + \
$CellContext`r[]), "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 1, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 1, 2, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 1, 2, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 1, 3, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 1, 3, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 1, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 1, 3, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 1, 4, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 1, 4, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 1, 4, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "1", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 1, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 1, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 1, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 1, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 2, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 2, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 2, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 3, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 3, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 3, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 4, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 4, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 4, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "2", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 2, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 3, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 3, 1, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 3, 1, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 3, 1, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 3, 2, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 3, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               FractionBox[
                InterpretationBox[
                 StyleBox["M",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`M,
                 Editable->False], 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`M,
                    Editable->False]}], "-", 
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False]}], ")"}], " ", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`r[],
                   Editable->False], "2"]}]],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", 
                 FractionBox[
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], 
                  RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "-", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}], ")"}], " ", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "2"]}]]}]],
              
              Annotation[#, {2, 3, 2, 
                3} -> $CellContext`M (
                  2 $CellContext`M - $CellContext`r[])^(-1) \
$CellContext`r[]^(-2), "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 3, 2, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 3, 3, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               FractionBox[
                InterpretationBox[
                 StyleBox["M",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`M,
                 Editable->False], 
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False]],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", 
                 FractionBox[
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False]]}]],
              
              Annotation[#, {2, 3, 3, 2} -> $CellContext`M/$CellContext`r[], 
               "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 3, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 3, 3, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 3, 4, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 3, 4, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 3, 4, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "3", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 3, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 4, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 4, 1, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 4, 1, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 4, 1, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 4, 2, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 4, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 4, 2, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               FractionBox[
                InterpretationBox[
                 StyleBox["M",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`M,
                 Editable->False], 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`M,
                    Editable->False]}], "-", 
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False]}], ")"}], " ", 
                 SuperscriptBox[
                  InterpretationBox[
                   StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`r[],
                   Editable->False], "2"]}]],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", 
                 FractionBox[
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], 
                  RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "-", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}], ")"}], " ", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "2"]}]]}]],
              
              Annotation[#, {2, 4, 2, 
                4} -> $CellContext`M (
                  
                  2 $CellContext`M - $CellContext`r[])^(-1) \
$CellContext`r[]^(-2), "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 4, 3, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 4, 3, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 4, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 4, 3, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 4, 4, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               FractionBox[
                RowBox[{
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False], " ", 
                 SuperscriptBox[
                  RowBox[{
                   InterpretationBox[
                    StyleBox["Sin",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    Sin,
                    Editable->False], "[", 
                   InterpretationBox[
                    StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Theta][],
                    Editable->False], "]"}], "2"]}], 
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False]],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", 
                 FractionBox[
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], " ", 
                    SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], 
                    "2"]}], 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False]]}]],
              
              Annotation[#, {2, 4, 4, 
                2} -> $CellContext`M $CellContext`r[]^(-1) Sin[
                   $CellContext`\[Theta][]]^2, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 4, 4, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"2", ",", "4", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {2, 4, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}]},
         {GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 1, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 1, 1, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               FractionBox[
                RowBox[{
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`M,
                    Editable->False]}], "-", 
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False]}], ")"}]}], 
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False], "4"]],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", 
                 FractionBox[
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "-", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}], ")"}]}], 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "4"]]}]],
              
              Annotation[#, {3, 1, 1, 
                3} -> $CellContext`M (
                 2 $CellContext`M - $CellContext`r[]) $CellContext`r[]^(-4), 
               "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 1, 1, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 1, 2, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 1, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 1, 2, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 1, 2, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox[
               RowBox[{"-", 
                FractionBox[
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False], 
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False]]}],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", 
                 RowBox[{"-", 
                   FractionBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]]}]}]],
              
              Annotation[#, {3, 1, 3, 1} -> -$CellContext`M/$CellContext`r[], 
               "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 1, 3, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 1, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 1, 3, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 1, 4, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 1, 4, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 1, 4, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "1", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 1, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 2, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 2, 1, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 2, 1, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 2, 1, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 2, 2, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 2, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               RowBox[{"-", 
                FractionBox[
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False], 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`M,
                    Editable->False]}], "-", 
                    InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False]}], ")"}], " ", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False], "2"]}]]}],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", 
                 RowBox[{"-", 
                   FractionBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "-", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}], ")"}], " ", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "2"]}]]}]}]],
              
              Annotation[#, {3, 2, 2, 
                3} -> -$CellContext`M (
                  2 $CellContext`M - $CellContext`r[])^(-1) \
$CellContext`r[]^(-2), "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 2, 2, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 2, 3, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               RowBox[{"-", 
                FractionBox[
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False], 
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False]]}],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", 
                 RowBox[{"-", 
                   FractionBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]]}]}]],
              
              Annotation[#, {3, 2, 3, 2} -> -$CellContext`M/$CellContext`r[], 
               "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 2, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 2, 3, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 2, 4, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 2, 4, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 2, 4, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "2", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 2, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 1, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 1, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 1, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 2, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 2, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 2, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 3, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 3, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 3, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 4, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 4, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 4, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "3", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 3, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 4, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 4, 1, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 4, 1, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 4, 1, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 4, 2, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 4, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 4, 2, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 4, 2, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 4, 3, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 4, 3, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 4, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               FractionBox[
                RowBox[{"2", " ", 
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False]}], 
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False]],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", 
                 FractionBox[
                  RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False]]}]],
              
              Annotation[#, {3, 4, 3, 4} -> 2 $CellContext`M/$CellContext`r[],
                "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 4, 4, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 4, 4, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               RowBox[{"-", 
                FractionBox[
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`M,
                   Editable->False], " ", 
                  SuperscriptBox[
                   RowBox[{
                    InterpretationBox[
                    StyleBox["Sin",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    Sin,
                    Editable->False], "[", 
                    InterpretationBox[
                    StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Theta][],
                    Editable->False], "]"}], "2"]}], 
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False]]}],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", 
                 RowBox[{"-", 
                   FractionBox[
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], " ", 
                    SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], 
                    "2"]}], 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]]}]}]],
              
              Annotation[#, {3, 4, 4, 
                3} -> (-2) $CellContext`M $CellContext`r[]^(-1) Sin[
                   $CellContext`\[Theta][]]^2, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"3", ",", "4", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {3, 4, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}]},
         {GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 1, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 1, 1, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 1, 1, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               FractionBox[
                RowBox[{
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`M,
                    Editable->False]}], "-", 
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False]}], ")"}]}], 
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False], "4"]],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", 
                 FractionBox[
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "-", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}], ")"}]}], 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "4"]]}]],
              
              Annotation[#, {4, 1, 1, 
                4} -> $CellContext`M (
                 2 $CellContext`M - $CellContext`r[]) $CellContext`r[]^(-4), 
               "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 1, 2, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 1, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 1, 2, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 1, 2, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 1, 3, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 1, 3, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 1, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 1, 3, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox[
               RowBox[{"-", 
                FractionBox[
                 RowBox[{
                  InterpretationBox[
                   StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`M,
                   Editable->False], " ", 
                  SuperscriptBox[
                   RowBox[{
                    InterpretationBox[
                    StyleBox["Sin",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    Sin,
                    Editable->False], "[", 
                    InterpretationBox[
                    StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Theta][],
                    Editable->False], "]"}], "2"]}], 
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False]]}],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", 
                 RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], " ", 
                    SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], 
                    "2"]}], 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]]}]}]],
              
              Annotation[#, {4, 1, 4, 
                1} -> -$CellContext`M $CellContext`r[]^(-1) Sin[
                   $CellContext`\[Theta][]]^2, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 1, 4, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 1, 4, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "1", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 1, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 2, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 2, 1, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 2, 1, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 2, 1, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 2, 2, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 2, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 2, 2, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               RowBox[{"-", 
                FractionBox[
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False], 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`M,
                    Editable->False]}], "-", 
                    InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False]}], ")"}], " ", 
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox["r",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`r[],
                    Editable->False], "2"]}]]}],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", 
                 RowBox[{"-", 
                   FractionBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "-", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}], ")"}], " ", 
                    SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "2"]}]]}]}]],
              
              Annotation[#, {4, 2, 2, 
                4} -> -$CellContext`M (
                  2 $CellContext`M - $CellContext`r[])^(-1) \
$CellContext`r[]^(-2), "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 2, 3, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 2, 3, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 2, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 2, 3, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 2, 4, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               RowBox[{"-", 
                FractionBox[
                 RowBox[{
                  InterpretationBox[
                   StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`M,
                   Editable->False], " ", 
                  SuperscriptBox[
                   RowBox[{
                    InterpretationBox[
                    StyleBox["Sin",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    Sin,
                    Editable->False], "[", 
                    InterpretationBox[
                    StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Theta][],
                    Editable->False], "]"}], "2"]}], 
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False]]}],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", 
                 RowBox[{"-", 
                   FractionBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], " ", 
                    SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], 
                    "2"]}], 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]]}]}]],
              
              Annotation[#, {4, 2, 4, 
                2} -> -$CellContext`M $CellContext`r[]^(-1) Sin[
                   $CellContext`\[Theta][]]^2, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 2, 4, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "2", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 2, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 3, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 3, 1, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 3, 1, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 3, 1, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 3, 2, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 3, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 3, 2, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 3, 2, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 3, 3, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 3, 3, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 3, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               RowBox[{"-", 
                FractionBox[
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`M,
                   Editable->False]}], 
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False]]}],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", 
                 RowBox[{"-", 
                   FractionBox[
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]]}]}]],
              
              Annotation[#, {4, 3, 3, 
                4} -> (-2) $CellContext`M/$CellContext`r[], "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 3, 4, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 3, 4, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox[
               FractionBox[
                RowBox[{"2", " ", 
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False], " ", 
                 SuperscriptBox[
                  RowBox[{
                   InterpretationBox[
                    StyleBox["Sin",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    Sin,
                    Editable->False], "[", 
                   InterpretationBox[
                    StyleBox["\[Theta]",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                    $CellContext`\[Theta][],
                    Editable->False], "]"}], "2"]}], 
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False]],
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", 
                 FractionBox[
                  RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], " ", 
                    SuperscriptBox[
                    RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                    InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], 
                    "2"]}], 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False]]}]],
              
              Annotation[#, {4, 3, 4, 3} -> 
               2 $CellContext`M $CellContext`r[]^(-1) Sin[
                   $CellContext`\[Theta][]]^2, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "3", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 3, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}], GridBox[{
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "1", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 1, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "1", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 1, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "1", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 1, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "1", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 1, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "2", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 2, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "2", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 2, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "2", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 2, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "2", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 2, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "3", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 3, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "3", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 3, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "3", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 3, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "3", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 3, 4} -> 0, "Tooltip"]& ]},
            {
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "4", ",", "1"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 4, 1} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "4", ",", "2"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 4, 2} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "4", ",", "3"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 4, 3} -> 0, "Tooltip"]& ], 
             TagBox[
              TooltipBox["0",
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"4", ",", "4", ",", "4", ",", "4"}], "}"}], 
                 "\[Rule]", "0"}]],
              Annotation[#, {4, 4, 4, 4} -> 0, "Tooltip"]& ]}
           },
           AutoDelete->False,
           
           GridBoxDividers->{
            "ColumnsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
             "RowsIndexed" -> {
              1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]},
           "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {" ", " ", " ", "\[Beta]"},
         {"\[Mu]", "\[Nu]", "\[Alpha]", " "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{{{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 
     0}}, {{0, 
       2 $CellContext`M (
        2 $CellContext`M - $CellContext`r[]) $CellContext`r[]^(-4), 0, 
       0}, {(-2) $CellContext`M $CellContext`r[]^(-2)/((-2) $CellContext`M + \
$CellContext`r[]), 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, {{
      0, 0, $CellContext`M $CellContext`r[]^(-4) ((-2) $CellContext`M + \
$CellContext`r[]), 0}, {0, 0, 0, 
      0}, {$CellContext`M/$CellContext`r[], 0, 0, 0}, {0, 0, 0, 0}}, {{
      0, 0, 0, $CellContext`M $CellContext`r[]^(-4) ((-2) $CellContext`M + \
$CellContext`r[])}, {0, 0, 0, 0}, {0, 0, 0, 
      0}, {$CellContext`M $CellContext`r[]^(-1) Sin[
          $CellContext`\[Theta][]]^2, 0, 0, 0}}}, {{{
      0, 2 $CellContext`M $CellContext`r[]^(-4) ((-2) $CellContext`M + \
$CellContext`r[]), 0, 0}, {
      2 $CellContext`M $CellContext`r[]^(-2)/((-2) $CellContext`M + \
$CellContext`r[]), 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}}, {{0, 0, 0, 0}, {0, 
     0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 
     0}}, {{0, 0, 0, 0}, {
      0, 0, $CellContext`M (
         2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[]^(-2), 
       0}, {0, $CellContext`M/$CellContext`r[], 0, 0}, {0, 0, 0, 0}}, {{0, 0, 
      0, 0}, {0, 0, 
       0, $CellContext`M (
         2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[]^(-2)}, {0,
       0, 0, 0}, {0, $CellContext`M $CellContext`r[]^(-1) Sin[
          $CellContext`\[Theta][]]^2, 0, 0}}}, {{{
      0, 0, $CellContext`M (
        2 $CellContext`M - $CellContext`r[]) $CellContext`r[]^(-4), 0}, {0, 0,
       0, 0}, {-$CellContext`M/$CellContext`r[], 0, 0, 0}, {0, 0, 0, 0}}, {{0,
       0, 0, 0}, {
      0, 0, -$CellContext`M (
         2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[]^(-2), 
       0}, {0, -$CellContext`M/$CellContext`r[], 0, 0}, {0, 0, 0, 0}}, {{0, 0,
      0, 0}, {0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 
     0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {
      0, 0, 0, 2 $CellContext`M/$CellContext`r[]}, {
      0, 0, (-2) $CellContext`M $CellContext`r[]^(-1) Sin[
          $CellContext`\[Theta][]]^2, 0}}}, {{{
      0, 0, 0, $CellContext`M (
        2 $CellContext`M - $CellContext`r[]) $CellContext`r[]^(-4)}, {0, 0, 0,
       0}, {0, 0, 0, 0}, {-$CellContext`M $CellContext`r[]^(-1) Sin[
          $CellContext`\[Theta][]]^2, 0, 0, 0}}, {{0, 0, 0, 0}, {
      0, 0, 0, -$CellContext`M (
         2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[]^(-2)}, {0,
       0, 0, 0}, {0, -$CellContext`M $CellContext`r[]^(-1) Sin[
          $CellContext`\[Theta][]]^2, 0, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {
      0, 0, 0, (-2) $CellContext`M/$CellContext`r[]}, {
      0, 0, 2 $CellContext`M $CellContext`r[]^(-1) Sin[
          $CellContext`\[Theta][]]^2, 0}}, {{0, 0, 0, 0}, {0, 0, 0, 0}, {0, 0,
      0, 0}, {0, 0, 0, 
     0}}}}, {-$CellContext`B, -$CellContext`B, -$CellContext`B, \
$CellContext`B}, 
   0][-$CellContext`\[Mu], -$CellContext`\[Nu], -$CellContext`\[Alpha], \
$CellContext`\[Beta]],
  Editable->False]], "Output"]
}, Open  ]],

Cell["Kretschmann", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Riemann", "[", "CD", "]"}], "[", 
    RowBox[{
     RowBox[{"-", "\[Mu]"}], ",", 
     RowBox[{"-", "\[Nu]"}], ",", 
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], 
   RowBox[{
    RowBox[{"Riemann", "[", "CD", "]"}], "[", 
    RowBox[{"\[Mu]", ",", "\[Nu]", ",", "\[Alpha]", ",", "\[Beta]"}], "]"}]}],
   "//", "Simplify"}]], "Input"],

Cell[BoxData[
 FractionBox[
  RowBox[{"48", " ", 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["M",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`M,
     Editable->False], "2"]}], 
  SuperscriptBox[
   InterpretationBox[
    StyleBox["r",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`r[],
    Editable->False], "6"]]], "Output"]
}, Open  ]],

Cell["\<\
We could have asked directly the Kretschmann tensor which had alrady been \
computed by MetricCompute\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Kretschmann", "[", "CD", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   FractionBox[
    RowBox[{"48", " ", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["M",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`M,
       Editable->False], "2"]}], 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["r",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`r[],
      Editable->False], "6"]], ",", 
   RowBox[{"{", "}"}], ",", "0"}], "]"}]], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Bianchi identities", "Subsubsection"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Antisymmetrize"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"Antisymmetrize[expr, {i1, ..., in}] antisymmetrizes the expr \
with respect to the n abstract indices i1, ..., in. By convention, the result \
has a factor 1/n! multiplying. Antisymmetrize[expr] antisymmetrizes all free \
indices.\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info393731738700-7852094"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Antisymmetrize", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Riemann", "[", "CD", "]"}], "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Mu]"}], ",", 
     RowBox[{"-", "\[Nu]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Mu]"}]}], "}"}]}], "]"}]], "Input"],

Cell[BoxData["0"], "Output"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"CDR", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"CD", "[", 
       RowBox[{"-", "\[Lambda]"}], "]"}], "@", 
      RowBox[{
       RowBox[{"Riemann", "[", "CD", "]"}], "[", 
       RowBox[{
        RowBox[{"-", "\[Alpha]"}], ",", 
        RowBox[{"-", "\[Beta]"}], ",", 
        RowBox[{"-", "\[Mu]"}], ",", 
        RowBox[{"-", "\[Nu]"}]}], "]"}]}], "//", "ToCanonical"}], "//", 
    "ToCCanonical"}]}], ";"}]], "Input"],

Cell["When we antisymmetrie we get 0", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Antisymmetrize", "[", 
  RowBox[{"CDR", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "\[Lambda]"}], ",", 
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "}"}]}], "]"}]], "Input"],

Cell[BoxData["0"], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Levi - Civita Tensor", "Subsubsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SignDetOfMetric", "[", "g", "]"}], "^=", 
   RowBox[{"-", "1"}]}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"epsilon", "[", "g", "]"}], "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "B"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "B"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", 
     RowBox[{"-", "B"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"-", "B"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"epsilon", "[", "g", "]"}], "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "B"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "B"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "B"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "B"}], "}"}]}], "]"}]}], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"SignDetOfMetric", "::", "num"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot determine sign of determinant of matrix \
\[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{RowBox[{RowBox[{\\\"-\\\", \
\\\"2\\\"}], \\\" \\\", InterpretationBox[StyleBox[RowBox[{\\\"M\\\"}], \
Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], M, Rule[Editable, \
False]]}], \\\"+\\\", InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, \
False], Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]]}], \
InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, False], \
Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]]]}], \\\",\\\", \
\\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \\\"0\\\"}], \\\"}\\\"}], \\\",\\\
\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", FractionBox[\\\"1\\\", \
RowBox[{\\\"1\\\", \\\"-\\\", FractionBox[RowBox[{\\\"2\\\", \\\" \\\", \
InterpretationBox[StyleBox[RowBox[{\\\"M\\\"}], Rule[AutoSpacing, False], \
Rule[ShowAutoStyles, False]], M, Rule[Editable, False]]}], \
InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, False], \
Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]]]}]], \\\",\\\", \
\\\"0\\\", \\\",\\\", \\\"0\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \
SuperscriptBox[InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, \
False], Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]], \
\\\"2\\\"], \\\",\\\", \\\"0\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \
\\\"0\\\", \\\",\\\", RowBox[{SuperscriptBox[InterpretationBox[StyleBox[\\\"r\
\\\", Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], r[], \
Rule[Editable, False]], \\\"2\\\"], \\\" \\\", \
SuperscriptBox[RowBox[{InterpretationBox[StyleBox[RowBox[{\\\"Sin\\\"}], \
Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], Sin, Rule[Editable, \
False]], \\\"[\\\", InterpretationBox[StyleBox[\\\"\[Theta]\\\", \
Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], \\\\[Theta][], \
Rule[Editable, False]], \\\"]\\\"}], \\\"2\\\"]}]}], \\\"}\\\"}]}], \
\\\"}\\\"}]\\)\[NoBreak]. Assuming +1.\"\>"}]], "Message", "MSG"],

Cell[BoxData[
 SqrtBox[
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox[
     InterpretationBox[
      StyleBox["r",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`r[],
      Editable->False], "4"]}], " ", 
   SuperscriptBox[
    RowBox[{
     InterpretationBox[
      StyleBox["Sin",
       ShowAutoStyles->False,
       AutoSpacing->False],
      Sin,
      Editable->False], "[", 
     InterpretationBox[
      StyleBox["\[Theta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Theta][],
      Editable->False], "]"}], "2"]}]]], "Output"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"SignDetOfMetric", "::", "num"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Cannot determine sign of determinant of matrix \
\[NoBreak]\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{RowBox[{RowBox[{\\\"-\\\", \
\\\"2\\\"}], \\\" \\\", InterpretationBox[StyleBox[RowBox[{\\\"M\\\"}], \
Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], M, Rule[Editable, \
False]]}], \\\"+\\\", InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, \
False], Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]]}], \
InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, False], \
Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]]]}], \\\",\\\", \
\\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \\\"0\\\"}], \\\"}\\\"}], \\\",\\\
\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", FractionBox[\\\"1\\\", \
RowBox[{\\\"1\\\", \\\"-\\\", FractionBox[RowBox[{\\\"2\\\", \\\" \\\", \
InterpretationBox[StyleBox[RowBox[{\\\"M\\\"}], Rule[AutoSpacing, False], \
Rule[ShowAutoStyles, False]], M, Rule[Editable, False]]}], \
InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, False], \
Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]]]}]], \\\",\\\", \
\\\"0\\\", \\\",\\\", \\\"0\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \
SuperscriptBox[InterpretationBox[StyleBox[\\\"r\\\", Rule[AutoSpacing, \
False], Rule[ShowAutoStyles, False]], r[], Rule[Editable, False]], \
\\\"2\\\"], \\\",\\\", \\\"0\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"0\\\", \\\",\\\", \
\\\"0\\\", \\\",\\\", RowBox[{SuperscriptBox[InterpretationBox[StyleBox[\\\"r\
\\\", Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], r[], \
Rule[Editable, False]], \\\"2\\\"], \\\" \\\", \
SuperscriptBox[RowBox[{InterpretationBox[StyleBox[RowBox[{\\\"Sin\\\"}], \
Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], Sin, Rule[Editable, \
False]], \\\"[\\\", InterpretationBox[StyleBox[\\\"\[Theta]\\\", \
Rule[AutoSpacing, False], Rule[ShowAutoStyles, False]], \\\\[Theta][], \
Rule[Editable, False]], \\\"]\\\"}], \\\"2\\\"]}]}], \\\"}\\\"}]}], \
\\\"}\\\"}]\\)\[NoBreak]. Assuming +1.\"\>"}]], "Message", "MSG"],

Cell[BoxData[
 FractionBox["1", 
  SqrtBox[
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox[
      InterpretationBox[
       StyleBox["r",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`r[],
       Editable->False], "4"]}], " ", 
    SuperscriptBox[
     RowBox[{
      InterpretationBox[
       StyleBox["Sin",
        ShowAutoStyles->False,
        AutoSpacing->False],
       Sin,
       Editable->False], "[", 
      InterpretationBox[
       StyleBox["\[Theta]",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`\[Theta][],
       Editable->False], "]"}], "2"]}]]]], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eddington - Finkelstein coordinates", "Subsubsection"],

Cell["\<\
This section is given to serve as an extremely simple example of change of \
coordinates (that is change of chart).\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "DefChart"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"DefChart[chart, manifold, cnumbers, scalars] defines chart as \
a coordinate system on manifold, with coordinate fields given by the list \
scalars and the integer cnumbers identifying those coordinates and the \
associated vectors/covectors fields. \"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info463731738701-7852094"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefChart", "[", 
  RowBox[{"EF", ",", "M4", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"v", "[", "]"}], ",", 
     RowBox[{"r", "[", "]"}], ",", 
     RowBox[{"\[Theta]", "[", "]"}], ",", 
     RowBox[{"\[Phi]", "[", "]"}]}], "}"}], ",", 
   RowBox[{"ChartColor", "\[Rule]", "Blue"}]}], "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefChart", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"chart \"\>", "\[InvisibleSpace]", "EF", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xCoba`DefChart, ": Defining ", "chart ", $CellContext`EF, ". ", 
   ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"coordinate scalar \"\>", "\[InvisibleSpace]", 
   RowBox[{"v", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "coordinate scalar ", 
   $CellContext`v[], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefMapping", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"mapping \"\>", "\[InvisibleSpace]", "EF", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefMapping, ": Defining ", "mapping ", $CellContext`EF, 
   ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefMapping", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"inverse mapping \"\>", "\[InvisibleSpace]", 
   "iEF", "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefMapping, ": Defining ", 
   "inverse mapping ", $CellContext`iEF, ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"mapping differential tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"diEF", "[", 
    RowBox[{
     RowBox[{"-", "\[FormalA]"}], ",", "iEF\[Alpha]"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "mapping differential tensor ", 
   $CellContext`diEF[-\[FormalA], $CellContext`iEF\[Alpha]], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"mapping differential tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"dEF", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", "EF\[FormalA]"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "mapping differential tensor ", 
   $CellContext`dEF[-$CellContext`\[Alpha], $CellContext`EF\[FormalA]], ". ", 
   ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefBasis", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"basis \"\>", "\[InvisibleSpace]", "EF", 
   "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"Coordinated basis.\"\>"}],
  SequenceForm[
  "** ", xAct`xCoba`DefBasis, ": Defining ", "basis ", $CellContext`EF, ". ", 
   "Coordinated basis."],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefCovD", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"parallel derivative \"\>", "\[InvisibleSpace]", 
   RowBox[{"PDEF", "[", 
    RowBox[{"-", "\[Alpha]"}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefCovD, ": Defining ", "parallel derivative ", 
   $CellContext`PDEF[-$CellContext`\[Alpha]], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vanishing torsion tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"TorsionPDEF", "[", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Lambda]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing torsion tensor ", 
   $CellContext`TorsionPDEF[$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Lambda]], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"symmetric Christoffel tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"ChristoffelPDEF", "[", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Lambda]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", 
   "symmetric Christoffel tensor ", 
   $CellContext`ChristoffelPDEF[$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Lambda]], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vanishing Riemann tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"RiemannPDEF", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Lambda]"}], ",", "\[Lambda]1"}], "]"}], 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing Riemann tensor ", 
   $CellContext`RiemannPDEF[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Lambda], $CellContext`\[Lambda]1], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"vanishing Ricci tensor \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"RicciPDEF", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "vanishing Ricci tensor ", 
   $CellContext`RicciPDEF[-$CellContext`\[Alpha], -$CellContext`\[Beta]], 
   ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"antisymmetric +1 density \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"etaUpEF", "[", 
    RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Lambda]", ",", "\[Lambda]1"}],
     "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric +1 density ", 
   $CellContext`etaUpEF[$CellContext`\[Alpha], $CellContext`\[Beta], \
$CellContext`\[Lambda], $CellContext`\[Lambda]1], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"antisymmetric -1 density \"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"etaDownEF", "[", 
    RowBox[{
     RowBox[{"-", "\[Alpha]"}], ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Lambda]"}], ",", 
     RowBox[{"-", "\[Lambda]1"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefTensor, ": Defining ", "antisymmetric -1 density ", 
   $CellContext`etaDownEF[-$CellContext`\[Alpha], -$CellContext`\[Beta], \
-$CellContext`\[Lambda], -$CellContext`\[Lambda]1], ". ", ""],
  Editable->False]], "Print"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$Assumptions", "=", 
  RowBox[{"And", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"t", "[", "]"}], ",", 
       RowBox[{"r", "[", "]"}], ",", 
       RowBox[{"v", "[", "]"}], ",", 
       RowBox[{"\[Phi]", "[", "]"}], ",", 
       RowBox[{"\[Theta]", "[", "]"}]}], "}"}], " ", "\[Element]", " ", 
     "Reals"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"r", "[", "]"}], ">", 
     RowBox[{"2", "M"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"M", ">", "0"}], ",", "\[IndentingNewLine]", 
    RowBox[{"0", "\[LessEqual]", " ", 
     RowBox[{"\[Theta]", "[", "]"}], "\[LessEqual]", " ", "Pi"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"0", "\[LessEqual]", " ", 
     RowBox[{"\[Phi]", "[", "]"}], "<", 
     RowBox[{"2", "Pi"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     InterpretationBox[
      StyleBox["t",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`t[],
      Editable->False], "|", 
     InterpretationBox[
      StyleBox["r",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`r[],
      Editable->False], "|", 
     InterpretationBox[
      StyleBox["v",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`v[],
      Editable->False], "|", 
     InterpretationBox[
      StyleBox["\[Phi]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Phi][],
      Editable->False], "|", 
     InterpretationBox[
      StyleBox["\[Theta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Theta][],
      Editable->False]}], ")"}], "\[Element]", "Reals"}], "&&", 
  RowBox[{
   InterpretationBox[
    StyleBox["r",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`r[],
    Editable->False], ">", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["M",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`M,
     Editable->False]}]}], "&&", 
  RowBox[{
   InterpretationBox[
    StyleBox["M",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`M,
    Editable->False], ">", "0"}], "&&", 
  RowBox[{"0", "\[LessEqual]", 
   InterpretationBox[
    StyleBox["\[Theta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Theta][],
    Editable->False], "\[LessEqual]", "\[Pi]"}], "&&", 
  RowBox[{"0", "\[LessEqual]", 
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Phi][],
    Editable->False], "<", 
   RowBox[{"2", " ", "\[Pi]"}]}]}]], "Output"]
}, Open  ]],

Cell["\<\
The change of coordinates is (Identity should be Abs but let us restrict to \
the r>2M region)\
\>", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"EF2B", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"v", "[", "]"}], "-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"r", "[", "]"}], " ", "+", 
        RowBox[{"2", "M", " ", 
         RowBox[{"Log", "@", 
          RowBox[{"Identity", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"r", "[", "]"}], "/", 
             RowBox[{"(", 
              RowBox[{"2", "M"}], ")"}]}], "-", "1"}], "]"}]}]}]}], ")"}]}], 
     ",", 
     RowBox[{"r", "[", "]"}], ",", 
     RowBox[{"\[Theta]", "[", "]"}], ",", 
     RowBox[{"\[Phi]", "[", "]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B2EF", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"t", "[", "]"}], "+", 
      RowBox[{"r", "[", "]"}], " ", "+", 
      RowBox[{"2", "M", " ", 
       RowBox[{"Log", "@", 
        RowBox[{"Identity", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"r", "[", "]"}], "/", 
           RowBox[{"(", 
            RowBox[{"2", "M"}], ")"}]}], "-", "1"}], "]"}]}]}]}], ",", 
     RowBox[{"r", "[", "]"}], ",", "\[Theta]", ",", 
     RowBox[{"\[Phi]", "[", "]"}]}], "}"}]}], ";"}]}], "Input",
 ExpressionUUID -> "e3a30ad3-d5ab-4cb0-b31c-c49f51117f21"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"B2EFRules", "=", 
  RowBox[{"Thread", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "[", "]"}], ",", 
      RowBox[{"r", "[", "]"}], ",", 
      RowBox[{"\[Theta]", "[", "]"}], ",", 
      RowBox[{"\[Phi]", "[", "]"}]}], "}"}], "\[Rule]", "EF2B"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"EF2BRules", "=", 
  RowBox[{"Thread", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"v", "[", "]"}], ",", 
      RowBox[{"r", "[", "]"}], ",", 
      RowBox[{"\[Theta]", "[", "]"}], ",", 
      RowBox[{"\[Phi]", "[", "]"}]}], "}"}], "\[Rule]", "B2EF"}], 
   "]"}]}]}], "Input",
 ExpressionUUID -> "4cef0c5c-2687-4457-99e0-634535d00d01"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["t",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`t[],
     Editable->False], "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      InterpretationBox[
       StyleBox["M",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`M,
       Editable->False], " ", 
      RowBox[{
       InterpretationBox[
        StyleBox["Log",
         ShowAutoStyles->False,
         AutoSpacing->False],
        Log,
        Editable->False], "[", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        FractionBox[
         InterpretationBox[
          StyleBox["r",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`r[],
          Editable->False], 
         RowBox[{"2", " ", 
          InterpretationBox[
           StyleBox["M",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`M,
           Editable->False]}]]}], "]"}]}], "-", 
     InterpretationBox[
      StyleBox["r",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`r[],
      Editable->False], "+", 
     InterpretationBox[
      StyleBox["v",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`v[],
      Editable->False]}]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[Theta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Theta][],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["\[Theta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Theta][],
     Editable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[Phi]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Phi][],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["\[Phi]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Phi][],
     Editable->False]}]}], "}"}]], "Output"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["v",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`v[],
     Editable->False], "\[Rule]", 
    RowBox[{
     RowBox[{"2", " ", 
      InterpretationBox[
       StyleBox["M",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`M,
       Editable->False], " ", 
      RowBox[{
       InterpretationBox[
        StyleBox["Log",
         ShowAutoStyles->False,
         AutoSpacing->False],
        Log,
        Editable->False], "[", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        FractionBox[
         InterpretationBox[
          StyleBox["r",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`r[],
          Editable->False], 
         RowBox[{"2", " ", 
          InterpretationBox[
           StyleBox["M",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`M,
           Editable->False]}]]}], "]"}]}], "+", 
     InterpretationBox[
      StyleBox["r",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`r[],
      Editable->False], "+", 
     InterpretationBox[
      StyleBox["t",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`t[],
      Editable->False]}]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[Theta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Theta][],
     Editable->False], "\[Rule]", "\[Theta]"}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[Phi]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Phi][],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["\[Phi]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Phi][],
     Editable->False]}]}], "}"}]], "Output"]
}, Open  ]],

Cell["Some assumptions on the ranges taken by coordinates", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$Assumptions", "=", 
  RowBox[{"And", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"t", "[", "]"}], ",", 
       RowBox[{"v", "[", "]"}], ",", 
       RowBox[{"r", "[", "]"}], ",", 
       RowBox[{"\[Phi]", "[", "]"}], ",", 
       RowBox[{"\[Theta]", "[", "]"}]}], "}"}], " ", "\[Element]", " ", 
     "Reals"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"r", "[", "]"}], ">", 
     RowBox[{"2", "M"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"0", "\[LessEqual]", " ", 
     RowBox[{"\[Theta]", "[", "]"}], "\[LessEqual]", " ", "Pi"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"0", "\[LessEqual]", " ", 
     RowBox[{"\[Phi]", "[", "]"}], "<", 
     RowBox[{"2", "Pi"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 ExpressionUUID -> "74b9886d-8f9d-4dc6-8536-7f5c4a9bbceb"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     InterpretationBox[
      StyleBox["t",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`t[],
      Editable->False], "|", 
     InterpretationBox[
      StyleBox["v",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`v[],
      Editable->False], "|", 
     InterpretationBox[
      StyleBox["r",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`r[],
      Editable->False], "|", 
     InterpretationBox[
      StyleBox["\[Phi]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Phi][],
      Editable->False], "|", 
     InterpretationBox[
      StyleBox["\[Theta]",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`\[Theta][],
      Editable->False]}], ")"}], "\[Element]", "Reals"}], "&&", 
  RowBox[{
   InterpretationBox[
    StyleBox["r",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`r[],
    Editable->False], ">", 
   RowBox[{"2", " ", 
    InterpretationBox[
     StyleBox["M",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`M,
     Editable->False]}]}], "&&", 
  RowBox[{"0", "\[LessEqual]", 
   InterpretationBox[
    StyleBox["\[Theta]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Theta][],
    Editable->False], "\[LessEqual]", "\[Pi]"}], "&&", 
  RowBox[{"0", "\[LessEqual]", 
   InterpretationBox[
    StyleBox["\[Phi]",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`\[Phi][],
    Editable->False], "<", 
   RowBox[{"2", " ", "\[Pi]"}]}]}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"B2EFRules", "/.", "EF2BRules"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EF2BRules", "/.", "B2EFRules"}], "//", "Simplify"}]}], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["t",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`t[],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["t",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`t[],
     Editable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False]}], ",", 
   RowBox[{"\[Theta]", "\[Rule]", "\[Theta]"}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[Phi]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Phi][],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["\[Phi]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Phi][],
     Editable->False]}]}], "}"}]], "Output"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     StyleBox["v",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`v[],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["v",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`v[],
     Editable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[Theta]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Theta][],
     Editable->False], "\[Rule]", "\[Theta]"}], ",", 
   RowBox[{
    InterpretationBox[
     StyleBox["\[Phi]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Phi][],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox["\[Phi]",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`\[Phi][],
     Editable->False]}]}], "}"}]], "Output"]
}, Open  ]],

Cell["\<\
This is the Jacobian that we computed from the change of coordinates\
\>", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"JEF2B", "=", 
   RowBox[{"Simplify", "@", 
    RowBox[{"Outer", "[", 
     RowBox[{"D", ",", "EF2B", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"v", "[", "]"}], ",", 
        RowBox[{"r", "[", "]"}], ",", 
        RowBox[{"\[Theta]", "[", "]"}], ",", 
        RowBox[{"\[Phi]", "[", "]"}]}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"JB2EF", "=", 
   RowBox[{"Simplify", "@", 
    RowBox[{"Outer", "[", 
     RowBox[{"D", ",", "B2EF", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"t", "[", "]"}], ",", 
        RowBox[{"r", "[", "]"}], ",", 
        RowBox[{"\[Theta]", "[", "]"}], ",", 
        RowBox[{"\[Phi]", "[", "]"}]}], "}"}]}], "]"}]}]}], ";"}]}], "Input"],

Cell["\<\
When building the CTensor which corresponds to the Jacobian, we must be very \
careful with the order of indices, otherwise it is the transpose !\
\>", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"EF2BJacobian", "=", 
   RowBox[{"CTensor", "[", 
    RowBox[{"JEF2B", ",", 
     RowBox[{"{", 
      RowBox[{"B", ",", 
       RowBox[{"-", "EF"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B2EFJacobian", "=", 
   RowBox[{"CTensor", "[", 
    RowBox[{"JB2EF", ",", 
     RowBox[{"{", 
      RowBox[{"EF", ",", 
       RowBox[{"-", "B"}]}], "}"}]}], "]"}]}], ";"}]}], "Input"],

Cell["But we could equally well use the Transpose and define", "Text"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"EF2BJacobian", "=", 
   RowBox[{"CTensor", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", "JEF2B"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "EF"}], ",", "B"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B2EFJacobian", "=", 
   RowBox[{"CTensor", "[", 
    RowBox[{
     RowBox[{"Transpose", "@", "JB2EF"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "B"}], ",", "EF"}], "}"}]}], "]"}]}], ";"}]}], "Input"],

Cell["\<\
Here are the components of the Jacobians, and we check that one is the \
inverse of the other one\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"EF2BJacobian", "[", 
    RowBox[{"a", ",", 
     RowBox[{"-", "b"}]}], "]"}], ",", 
   RowBox[{"B2EFJacobian", "[", 
    RowBox[{"a", ",", 
     RowBox[{"-", "b"}]}], "]"}]}], "}"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    StyleBox[GridBox[{
       {
        StyleBox[GridBox[{
           {
            TagBox[
             TooltipBox["1",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}]],
             Annotation[#, {1, 1} -> 1, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {1, 2} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {1, 3} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {1, 4} -> 0, "Tooltip"]& ]},
           {
            TagBox[
             TooltipBox[
              FractionBox[
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], 
               RowBox[{
                RowBox[{"2", " ", 
                 InterpretationBox[
                  StyleBox["M",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`M,
                  Editable->False]}], "-", 
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False]}]],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", 
                FractionBox[
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False], 
                 RowBox[{
                   RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "-", 
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}]]}]],
             
             Annotation[#, {2, 
               1} -> (2 $CellContext`M - $CellContext`r[])^(-1) \
$CellContext`r[], "Tooltip"]& ], 
            TagBox[
             TooltipBox["1",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "1"}]],
             Annotation[#, {2, 2} -> 1, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {2, 3} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {2, 4} -> 0, "Tooltip"]& ]},
           {
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["1",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "1"}]],
             Annotation[#, {3, 3} -> 1, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {3, 4} -> 0, "Tooltip"]& ]},
           {
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {4, 1} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {4, 2} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {4, 3} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["1",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", "1"}]],
             Annotation[#, {4, 4} -> 1, "Tooltip"]& ]}
          },
          AutoDelete->False,
          
          GridBoxDividers->{
           "ColumnsIndexed" -> {
             1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}, 
            "RowsIndexed" -> {
             1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}],
         FontSize->Small], 
        StyleBox[GridBox[{
           {"a", " "},
           {" ", "b"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    xAct`xCoba`CTensor[{{1, 0, 0, 
      0}, {(2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], 1, 0, 
       0}, {0, 0, 1, 0}, {0, 0, 0, 1}}, {-$CellContext`EF, $CellContext`B}, 
     0][$CellContext`a, -$CellContext`b],
    Editable->False], ",", 
   InterpretationBox[
    StyleBox[GridBox[{
       {
        StyleBox[GridBox[{
           {
            TagBox[
             TooltipBox["1",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}]],
             Annotation[#, {1, 1} -> 1, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {1, 2} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {1, 3} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {1, 4} -> 0, "Tooltip"]& ]},
           {
            TagBox[
             TooltipBox[
              RowBox[{"-", 
               FractionBox[
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False], 
                RowBox[{
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`M,
                   Editable->False]}], "-", 
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False]}]]}],
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", 
                RowBox[{"-", 
                  FractionBox[
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], 
                   RowBox[{
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "-", 
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}]]}]}]],
             Annotation[#, {2, 
               1} -> -(
                 2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], 
              "Tooltip"]& ], 
            TagBox[
             TooltipBox["1",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "1"}]],
             Annotation[#, {2, 2} -> 1, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {2, 3} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {2, 4} -> 0, "Tooltip"]& ]},
           {
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {3, 3} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {3, 4} -> 0, "Tooltip"]& ]},
           {
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {4, 1} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {4, 2} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["0",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]],
             Annotation[#, {4, 3} -> 0, "Tooltip"]& ], 
            TagBox[
             TooltipBox["1",
              RowBox[{
                RowBox[{"{", 
                  RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", "1"}]],
             Annotation[#, {4, 4} -> 1, "Tooltip"]& ]}
          },
          AutoDelete->False,
          
          GridBoxDividers->{
           "ColumnsIndexed" -> {
             1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}, 
            "RowsIndexed" -> {
             1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}}],
         FontSize->Small], 
        StyleBox[GridBox[{
           {"a", " "},
           {" ", "b"}
          },
          GridBoxSpacings->{"Columns" -> {
              Offset[0.], {
               Offset[0.034999999999999996`]}, 
              Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
               Offset[0.]}}, "RowsIndexed" -> {}}],
         FontSize->Rational[39, 4]]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
        "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.034999999999999996`]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}],
     ShowAutoStyles->False,
     AutoSpacing->False],
    xAct`xCoba`CTensor[{{1, 0, 0, 
      0}, {-(2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], 1, 0,
        0}, {0, 0, 0, 0}, {0, 0, 0, 1}}, {-$CellContext`B, $CellContext`EF}, 
     0][$CellContext`a, -$CellContext`b],
    Editable->False]}], "}"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"EF2BJacobian", "[", 
      RowBox[{"b", ",", 
       RowBox[{"-", "a"}]}], "]"}], 
     RowBox[{"B2EFJacobian", "[", 
      RowBox[{"c", ",", 
       RowBox[{"-", "b"}]}], "]"}]}], "/.", "EF2BRules"}], ")"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"B2EFJacobian", "[", 
      RowBox[{"b", ",", 
       RowBox[{"-", "a"}]}], "]"}], 
     RowBox[{"EF2BJacobian", "[", 
      RowBox[{"c", ",", 
       RowBox[{"-", "b"}]}], "]"}]}], "/.", "B2EFRules"}], ")"}], "//", 
  "Simplify"}]}], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {1, 1} -> 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {2, 2} -> 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {4, 4} -> 1, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]},
           "RowsIndexed" -> {1 -> RGBColor[1, 0, 0], 5 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {" ", "c"},
         {"a", " "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 
   1}}, {$CellContext`B, -$CellContext`B}, 0][-$CellContext`a, $CellContext`c],
  Editable->False]], "Output"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {1, 1} -> 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {2, 2} -> 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {4, 4} -> 1, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]},
           "RowsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {" ", "c"},
         {"a", " "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 0, 0}, {0, 0, 0, 
   1}}, {$CellContext`EF, -$CellContext`EF}, 
   0][-$CellContext`a, $CellContext`c],
  Editable->False]], "Output"]
}, Open  ]],

Cell["\<\
If we know we prefer one of the charts (say Eddington-Finkelstein in this \
case) then set the corresponding Jacobian:\
\>", "Text",
 ExpressionUUID -> "e9f4f2dd-4ced-459c-906f-3100ddbab4ff"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "SetBasisChange"}]], "Input"],

Cell[BoxData[
 StyleBox["\<\"SetBasisChange[CTensor[matrix, {-newbasis, oldbasis}]] stores, \
both using a CTensor and TensorValues, the change of basis from the oldbasis \
to the newbasis.\"\>", "MSG"]], "Print", "PrintUsage",
 CellTags->"Info653731738702-7852094"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetBasisChange", "[", "EF2BJacobian", "]"}]], "Input",
 ExpressionUUID -> "42f846ff-3522-47d5-87b6-cef4f817872f"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["1",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{1, -$CellContext`EF}, {1, $CellContext`B}],
     Editable->False], "\[Rule]", "1"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{1, -$CellContext`EF}, {1, $CellContext`B}] -> 1, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["2",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{1, -$CellContext`EF}, {2, $CellContext`B}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{1, -$CellContext`EF}, {2, $CellContext`B}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["3",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{1, -$CellContext`EF}, {3, $CellContext`B}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{1, -$CellContext`EF}, {3, $CellContext`B}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["4",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{1, -$CellContext`EF}, {4, $CellContext`B}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{1, -$CellContext`EF}, {4, $CellContext`B}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["1",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["2",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{2, -$CellContext`EF}, {1, $CellContext`B}],
     Editable->False], "\[Rule]", 
    FractionBox[
     InterpretationBox[
      StyleBox["r",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`r[],
      Editable->False], 
     RowBox[{
      RowBox[{"2", " ", 
       InterpretationBox[
        StyleBox["M",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`M,
        Editable->False]}], "-", 
      InterpretationBox[
       StyleBox["r",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`r[],
       Editable->False]}]]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", 
   "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{2, -$CellContext`EF}, {
     1, $CellContext`B}] -> (
      2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["2",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["2",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{2, -$CellContext`EF}, {2, $CellContext`B}],
     Editable->False], "\[Rule]", "1"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{2, -$CellContext`EF}, {2, $CellContext`B}] -> 1, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["3",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["2",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{2, -$CellContext`EF}, {3, $CellContext`B}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{2, -$CellContext`EF}, {3, $CellContext`B}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["4",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["2",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{2, -$CellContext`EF}, {4, $CellContext`B}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{2, -$CellContext`EF}, {4, $CellContext`B}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["1",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["3",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{3, -$CellContext`EF}, {1, $CellContext`B}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{3, -$CellContext`EF}, {1, $CellContext`B}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["2",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["3",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{3, -$CellContext`EF}, {2, $CellContext`B}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{3, -$CellContext`EF}, {2, $CellContext`B}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["3",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["3",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{3, -$CellContext`EF}, {3, $CellContext`B}],
     Editable->False], "\[Rule]", "1"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{3, -$CellContext`EF}, {3, $CellContext`B}] -> 1, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["4",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["3",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{3, -$CellContext`EF}, {4, $CellContext`B}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{3, -$CellContext`EF}, {4, $CellContext`B}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["1",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["4",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{4, -$CellContext`EF}, {1, $CellContext`B}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{4, -$CellContext`EF}, {1, $CellContext`B}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["2",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["4",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{4, -$CellContext`EF}, {2, $CellContext`B}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{4, -$CellContext`EF}, {2, $CellContext`B}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["3",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["4",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{4, -$CellContext`EF}, {3, $CellContext`B}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{4, -$CellContext`EF}, {3, $CellContext`B}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["4",
              FontColor->RGBColor[1., 0., 0.]]},
            {
             StyleBox["4",
              FontColor->RGBColor[0., 0., 1.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{4, -$CellContext`EF}, {4, $CellContext`B}],
     Editable->False], "\[Rule]", "1"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{4, -$CellContext`EF}, {4, $CellContext`B}] -> 1, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["1",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{1, -$CellContext`B}, {1, $CellContext`EF}],
     Editable->False], "\[Rule]", "1"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{1, -$CellContext`B}, {1, $CellContext`EF}] -> 1, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["2",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["1",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{1, -$CellContext`B}, {2, $CellContext`EF}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{1, -$CellContext`B}, {2, $CellContext`EF}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["3",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["1",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{1, -$CellContext`B}, {3, $CellContext`EF}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{1, -$CellContext`B}, {3, $CellContext`EF}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["4",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["1",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{1, -$CellContext`B}, {4, $CellContext`EF}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{1, -$CellContext`B}, {4, $CellContext`EF}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["2",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{2, -$CellContext`B}, {1, $CellContext`EF}],
     Editable->False], "\[Rule]", 
    RowBox[{"-", 
     FractionBox[
      InterpretationBox[
       StyleBox["r",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`r[],
       Editable->False], 
      RowBox[{
       RowBox[{"2", " ", 
        InterpretationBox[
         StyleBox["M",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`M,
         Editable->False]}], "-", 
       InterpretationBox[
        StyleBox["r",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`r[],
        Editable->False]}]]}]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", 
   "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{2, -$CellContext`B}, {
     1, $CellContext`EF}] -> -(
      2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["2",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["2",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{2, -$CellContext`B}, {2, $CellContext`EF}],
     Editable->False], "\[Rule]", "1"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{2, -$CellContext`B}, {2, $CellContext`EF}] -> 1, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["3",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["2",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{2, -$CellContext`B}, {3, $CellContext`EF}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{2, -$CellContext`B}, {3, $CellContext`EF}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["4",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["2",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{2, -$CellContext`B}, {4, $CellContext`EF}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{2, -$CellContext`B}, {4, $CellContext`EF}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["3",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{3, -$CellContext`B}, {1, $CellContext`EF}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{3, -$CellContext`B}, {1, $CellContext`EF}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["2",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["3",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{3, -$CellContext`B}, {2, $CellContext`EF}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{3, -$CellContext`B}, {2, $CellContext`EF}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["3",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["3",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{3, -$CellContext`B}, {3, $CellContext`EF}],
     Editable->False], "\[Rule]", "1"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{3, -$CellContext`B}, {3, $CellContext`EF}] -> 1, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["4",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["3",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{3, -$CellContext`B}, {4, $CellContext`EF}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{3, -$CellContext`B}, {4, $CellContext`EF}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["1",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["4",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{4, -$CellContext`B}, {1, $CellContext`EF}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{4, -$CellContext`B}, {1, $CellContext`EF}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["2",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["4",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{4, -$CellContext`B}, {2, $CellContext`EF}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{4, -$CellContext`B}, {2, $CellContext`EF}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["3",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["4",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{4, -$CellContext`B}, {3, $CellContext`EF}],
     Editable->False], "\[Rule]", "0"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{4, -$CellContext`B}, {3, $CellContext`EF}] -> 0, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[GridBox[{
        {"e", 
         StyleBox[GridBox[{
            {" ", 
             StyleBox["4",
              FontColor->RGBColor[0., 0., 1.]]},
            {
             StyleBox["4",
              FontColor->RGBColor[1., 0., 0.]], " "}
           },
           GridBoxSpacings->{"Columns" -> {
               Offset[0.], {
                Offset[0.034999999999999996`]}, 
               Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
                Offset[0.]}}, "RowsIndexed" -> {}}],
          FontSize->Rational[39, 4]]}
       },
       GridBoxAlignment->{
        "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}},
          "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.034999999999999996`]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}}],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xTensor`Basis[{4, -$CellContext`B}, {4, $CellContext`EF}],
     Editable->False], "\[Rule]", "1"}], 
   "\[InvisibleSpace]", "\<\" for tensor \"\>", "\[InvisibleSpace]", "Basis"}],
  SequenceForm[
  "Added independent rule ", 
   xAct`xTensor`Basis[{4, -$CellContext`B}, {4, $CellContext`EF}] -> 1, 
   " for tensor ", xAct`xTensor`Basis],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>", "\[InvisibleSpace]", 
   RowBox[{"JacobianBEF", "[", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "", 
   $CellContext`JacobianBEF[], ". ", ""],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Added independent rule \"\>", "\[InvisibleSpace]", 
   RowBox[{
    InterpretationBox[
     StyleBox[
      UnderscriptBox[
       OverscriptBox["J", 
        StyleBox["~",
         FontColor->RGBColor[1, 0, 0]]], 
       StyleBox["~",
        FontColor->RGBColor[0, 0, 1]]],
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`JacobianBEF[],
     Editable->False], "\[Rule]", 
    InterpretationBox[
     StyleBox[
      UnderscriptBox[
       OverscriptBox["1", 
        StyleBox["~",
         FontColor->RGBColor[1., 0., 0.]]], 
       StyleBox["~",
        FontColor->RGBColor[0., 0., 1.]]],
      ShowAutoStyles->False,
      AutoSpacing->False],
     xAct`xCoba`CTensor[1, {}, $CellContext`B - $CellContext`EF][],
     Editable->False]}], "\[InvisibleSpace]", "\<\" for tensor \"\>", 
   "\[InvisibleSpace]", "JacobianBEF"}],
  SequenceForm[
  "Added independent rule ", $CellContext`JacobianBEF[] -> 
   xAct`xCoba`CTensor[1, {}, $CellContext`B - $CellContext`EF][], 
   " for tensor ", $CellContext`JacobianBEF],
  Editable->False]], "Print"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"ChristoffelPDBPDEF", "[", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"-", "\[Beta]"}], ",", 
     RowBox[{"-", "\[Lambda]"}]}], "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`ChristoffelPDBPDEF[$CellContext`\[Alpha], -$CellContext`\
\[Beta], -$CellContext`\[Lambda]], ". ", ""],
  Editable->False]], "Print"]
}, Open  ]]
}, Open  ]],

Cell["\<\
Let us give a simple example of change of coordinates. 
Let us take some vector which is not Killing, that is which has no special \
propreties, and which depends explicitly on t in the B basis.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CV", "=", 
  RowBox[{"CTensor", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "[", "]"}], ",", 
      RowBox[{
       RowBox[{"r", "[", "]"}], 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ",", "0", ",", "0"}], "}"}], 
    ",", 
    RowBox[{"{", "B", "}"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     InterpretationBox[
      StyleBox["t",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`t[],
      Editable->False], ",", 
     RowBox[{
      InterpretationBox[
       StyleBox["r",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`r[],
       Editable->False], " ", 
      RowBox[{
       InterpretationBox[
        StyleBox["Sin",
         ShowAutoStyles->False,
         AutoSpacing->False],
        Sin,
        Editable->False], "[", "\[Theta]", "]"}]}], ",", "0", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", "B", "}"}], ",", "0"}], "]"}]], "Output"]
}, Open  ]],

Cell["\<\
Let us transform it to the EF coordinates and read the result (this requires \
to use the rules B2EFRules to read the result in the new basis AND and where \
all dependence is in the scalars of the new chart.)\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ToCTensor", "[", 
  RowBox[{"%", ",", 
   RowBox[{"{", "EF", "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"CV", "=", 
  RowBox[{
   RowBox[{"%", "/.", "B2EFRules"}], "//", "Simplify"}]}]}], "Input"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox[
          InterpretationBox[
           StyleBox["r",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`r[],
           Editable->False], "2"], " ", 
         RowBox[{
          InterpretationBox[
           StyleBox["Sin",
            ShowAutoStyles->False,
            AutoSpacing->False],
           Sin,
           Editable->False], "[", "\[Theta]", "]"}]}], 
        RowBox[{
         RowBox[{"2", " ", 
          InterpretationBox[
           StyleBox["M",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`M,
           Editable->False]}], "-", 
         InterpretationBox[
          StyleBox["r",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`r[],
          Editable->False]}]]}], "+", 
      InterpretationBox[
       StyleBox["t",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`t[],
       Editable->False]}], ",", 
     RowBox[{
      InterpretationBox[
       StyleBox["r",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`r[],
       Editable->False], " ", 
      RowBox[{
       InterpretationBox[
        StyleBox["Sin",
         ShowAutoStyles->False,
         AutoSpacing->False],
        Sin,
        Editable->False], "[", "\[Theta]", "]"}]}], ",", "0", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", "EF", "}"}], ",", "0"}], "]"}]], "Output"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       InterpretationBox[
        StyleBox["M",
         ShowAutoStyles->False,
         AutoSpacing->False],
        $CellContext`M,
        Editable->False], " ", 
       RowBox[{
        InterpretationBox[
         StyleBox["Log",
          ShowAutoStyles->False,
          AutoSpacing->False],
         Log,
         Editable->False], "[", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          InterpretationBox[
           StyleBox["r",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`r[],
           Editable->False], 
          RowBox[{"2", " ", 
           InterpretationBox[
            StyleBox["M",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`M,
            Editable->False]}]]}], "]"}]}], "-", 
      InterpretationBox[
       StyleBox["r",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`r[],
       Editable->False], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         InterpretationBox[
          StyleBox["r",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`r[],
          Editable->False], "2"], " ", 
        RowBox[{
         InterpretationBox[
          StyleBox["Sin",
           ShowAutoStyles->False,
           AutoSpacing->False],
          Sin,
          Editable->False], "[", "\[Theta]", "]"}]}], 
       RowBox[{
        RowBox[{"2", " ", 
         InterpretationBox[
          StyleBox["M",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`M,
          Editable->False]}], "-", 
        InterpretationBox[
         StyleBox["r",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`r[],
         Editable->False]}]], "+", 
      InterpretationBox[
       StyleBox["v",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`v[],
       Editable->False]}], ",", 
     RowBox[{
      InterpretationBox[
       StyleBox["r",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`r[],
       Editable->False], " ", 
      RowBox[{
       InterpretationBox[
        StyleBox["Sin",
         ShowAutoStyles->False,
         AutoSpacing->False],
        Sin,
        Editable->False], "[", "\[Theta]", "]"}]}], ",", "0", ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", "EF", "}"}], ",", "0"}], "]"}]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CV", "[", "\[Mu]", "]"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              InterpretationBox[
               StyleBox["M",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`M,
               Editable->False], " ", 
              RowBox[{
               InterpretationBox[
                StyleBox["Log",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Log,
                Editable->False], "[", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                FractionBox[
                 InterpretationBox[
                  StyleBox["r",
                   ShowAutoStyles->False,
                   AutoSpacing->False],
                  $CellContext`r[],
                  Editable->False], 
                 RowBox[{"2", " ", 
                  InterpretationBox[
                   StyleBox["M",
                    ShowAutoStyles->False,
                    AutoSpacing->False],
                   $CellContext`M,
                   Editable->False]}]]}], "]"}]}], "-", 
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`r[],
                 Editable->False], "2"], " ", 
               RowBox[{
                InterpretationBox[
                 StyleBox["Sin",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 Sin,
                 Editable->False], "[", "\[Theta]", "]"}]}], 
              RowBox[{
               RowBox[{"2", " ", 
                InterpretationBox[
                 StyleBox["M",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`M,
                 Editable->False]}], "-", 
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False]}]], "+", 
             InterpretationBox[
              StyleBox["v",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`v[],
              Editable->False]}],
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{
                  RowBox[{"-", "2"}], " ", 
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False], " ", 
                  RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Log"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Log, Editable -> False], "[", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", 
                    FractionBox[
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], 
                    RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}]]}], "]"}]}], 
                "-", 
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], "-", 
                FractionBox[
                 RowBox[{
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "2"], " ", 
                   RowBox[{
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", "\[Theta]", "]"}]}], 
                 RowBox[{
                   RowBox[{"2", " ", 
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "-", 
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False]}]], "+", 
                InterpretationBox[
                 StyleBox["v", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`v[], Editable -> False]}]}]],
           
           Annotation[#, {
             1} -> (-2) $CellContext`M 
              Log[-1 + Rational[
                  1, 2] $CellContext`M^(-1) $CellContext`r[]] - \
$CellContext`r[] - (
               2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[]^2 
             Sin[$CellContext`\[Theta]] + $CellContext`v[], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False], " ", 
             RowBox[{
              InterpretationBox[
               StyleBox["Sin",
                ShowAutoStyles->False,
                AutoSpacing->False],
               Sin,
               Editable->False], "[", "\[Theta]", "]"}]}],
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", 
              RowBox[{
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], " ", 
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", "\[Theta]", 
                  "]"}]}]}]],
           
           Annotation[#, {2} -> $CellContext`r[] Sin[$CellContext`\[Theta]], 
            "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", "4", "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4} -> 0, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[0, 0, 1], 2 -> RGBColor[0, 0, 1]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"\[Mu]"},
         {" "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{(-2) $CellContext`M 
     Log[-1 + Rational[
         1, 2] $CellContext`M^(-1) $CellContext`r[]] - $CellContext`r[] - (
      2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[]^2 
    Sin[$CellContext`\[Theta]] + $CellContext`v[], $CellContext`r[] 
    Sin[$CellContext`\[Theta]], 0, 0}, {$CellContext`EF}, 
   0][$CellContext`\[Mu]],
  Editable->False]], "Output"]
}, Open  ]],

Cell["We can look at the metric in the EF components", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"(", 
  RowBox[{
   RowBox[{
    RowBox[{"ToCTensor", "[", 
     RowBox[{"g", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "EF"}], ",", 
        RowBox[{"-", "EF"}]}], "}"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"-", "\[Mu]"}], ",", 
     RowBox[{"-", "\[Nu]"}]}], "]"}], "/.", "B2EFRules"}], 
  ")"}], "\[IndentingNewLine]", 
 RowBox[{"(", 
  RowBox[{
   RowBox[{
    RowBox[{"ToCTensor", "[", 
     RowBox[{"g", ",", 
      RowBox[{"{", 
       RowBox[{"EF", ",", 
        RowBox[{"-", "EF"}]}], "}"}]}], "]"}], "[", 
    RowBox[{"\[Mu]", ",", 
     RowBox[{"-", "\[Nu]"}]}], "]"}], "/.", "B2EFRules"}], 
  ")"}], "\[IndentingNewLine]", 
 RowBox[{"(", 
  RowBox[{
   RowBox[{
    RowBox[{"ToCTensor", "[", 
     RowBox[{"g", ",", 
      RowBox[{"{", 
       RowBox[{"EF", ",", "EF"}], "}"}]}], "]"}], "[", 
    RowBox[{"\[Mu]", ",", "\[Nu]"}], "]"}], "/.", "B2EFRules"}], 
  ")"}]}], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             FractionBox[
              RowBox[{"2", " ", 
               InterpretationBox[
                StyleBox["M",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`M,
                Editable->False]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{"-", "1"}], "+", 
                FractionBox[
                 RowBox[{"2", " ", 
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]]}]}]],
           
           Annotation[#, {1, 1} -> -1 + 2 $CellContext`M/$CellContext`r[], 
            "Tooltip"]& ], 
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {1, 2} -> 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {2, 1} -> 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            SuperscriptBox[
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False], "2"],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", 
              SuperscriptBox[
               InterpretationBox[
                StyleBox[
                "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`r[], Editable -> False], "2"]}]],
           Annotation[#, {3, 3} -> $CellContext`r[]^2, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "2"], " ", 
             SuperscriptBox[
              RowBox[{
               InterpretationBox[
                StyleBox["Sin",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Sin,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], "2"]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", 
              RowBox[{
                SuperscriptBox[
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False], "2"], " ", 
                SuperscriptBox[
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"Sin"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Sin, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> 
                    False], 
                    $CellContext`\[Theta][], Editable -> False], "]"}], 
                 "2"]}]}]],
           Annotation[#, {4, 4} -> $CellContext`r[]^2 Sin[
                $CellContext`\[Theta][]]^2, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]},
           "RowsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {" ", " "},
         {"\[Mu]", "\[Nu]"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{-1 + 2 $CellContext`M/$CellContext`r[], 1, 0, 0}, {1, 
    0, 0, 0}, {0, 0, $CellContext`r[]^2, 0}, {
    0, 0, 0, $CellContext`r[]^2 Sin[
        $CellContext`\[Theta][]]^2}}, {-$CellContext`EF, -$CellContext`EF}, 
   0][-$CellContext`\[Mu], -$CellContext`\[Nu]],
  Editable->False]], "Output"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {1, 1} -> 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {2, 2} -> 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {3, 3} -> 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {4, 4} -> 1, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]},
           "RowsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"\[Mu]", " "},
         {" ", "\[Nu]"}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 
   1}}, {$CellContext`EF, -$CellContext`EF}, 
   0][$CellContext`\[Mu], -$CellContext`\[Nu]],
  Editable->False]], "Output"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {1, 2} -> 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"1", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {1, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", "1"}]],
           Annotation[#, {2, 1} -> 1, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            RowBox[{"1", "-", 
             FractionBox[
              RowBox[{"2", " ", 
               InterpretationBox[
                StyleBox["M",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`M,
                Editable->False]}], 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]]}],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "2"}], "}"}], "\[Rule]", 
              RowBox[{"1", "-", 
                FractionBox[
                 RowBox[{"2", " ", 
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]]}]}]],
           
           Annotation[#, {2, 2} -> 1 - 2 $CellContext`M/$CellContext`r[], 
            "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"2", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {2, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox["1", 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "2"]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "3"}], "}"}], "\[Rule]", 
              FractionBox["1", 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], "2"]]}]],
           Annotation[#, {3, 3} -> $CellContext`r[]^(-2), "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"3", ",", "4"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3, 4} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "1"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 1} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 2} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "3"}], "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4, 3} -> 0, "Tooltip"]& ], 
          TagBox[
           TooltipBox[
            FractionBox[
             SuperscriptBox[
              RowBox[{
               InterpretationBox[
                StyleBox["Csc",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                Csc,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["\[Theta]",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`\[Theta][],
                Editable->False], "]"}], "2"], 
             SuperscriptBox[
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "2"]],
            RowBox[{
              RowBox[{"{", 
                RowBox[{"4", ",", "4"}], "}"}], "\[Rule]", 
              FractionBox[
               SuperscriptBox[
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"Csc"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], Csc, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "\[Theta]", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`\[Theta][], Editable -> False], "]"}], "2"], 
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], "2"]]}]],
           Annotation[#, {4, 4} -> Csc[
                $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2), 
            "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]},
           "RowsIndexed" -> {1 -> RGBColor[0, 0, 1], 5 -> RGBColor[0, 0, 1]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"\[Mu]", "\[Nu]"},
         {" ", " "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{{0, 1, 0, 0}, {
    1, 1 - 2 $CellContext`M/$CellContext`r[], 0, 0}, {
    0, 0, $CellContext`r[]^(-2), 0}, {0, 0, 0, Csc[
        $CellContext`\[Theta][]]^2 $CellContext`r[]^(-2)}}, {$CellContext`EF, \
$CellContext`EF}, 0][$CellContext`\[Mu], $CellContext`\[Nu]],
  Editable->False]], "Output"]
}, Open  ]],

Cell["The determinant of the Jacobian is a density", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Determinant", "[", "EF2BJacobian", "]"}], "[", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Determinant", "[", 
   RowBox[{"Inv", "[", "EF2BJacobian", "]"}], "]"}], "[", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Jacobian", "[", 
    RowBox[{"EF", ",", "B"}], "]"}], "[", "]"}], "//", 
  "ToValues"}]}], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   OverscriptBox[
    UnderscriptBox["1", 
     StyleBox["~",
      FontColor->RGBColor[1., 0., 0.]]], 
    StyleBox["~",
     FontColor->RGBColor[0., 0., 1.]]],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[1, {}, -$CellContext`B + $CellContext`EF][],
  Editable->False]], "Output"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   UnderscriptBox[
    OverscriptBox["1", 
     StyleBox["~",
      FontColor->RGBColor[1., 0., 0.]]], 
    StyleBox["~",
     FontColor->RGBColor[0., 0., 1.]]],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[1, {}, $CellContext`B - $CellContext`EF][],
  Editable->False]], "Output"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   OverscriptBox[
    UnderscriptBox["1", 
     StyleBox["~",
      FontColor->RGBColor[1., 0., 0.]]], 
    StyleBox["~",
     FontColor->RGBColor[0., 0., 1.]]],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[1, {}, -$CellContext`B + $CellContext`EF][],
  Editable->False]], "Output"]
}, Open  ]],

Cell["\<\
The determinant of the metric is regular at r=2M in these \
Eddington-Finkelstein coordinates\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"Determinant", "[", 
      RowBox[{"g", ",", "EF"}], "]"}], "[", "]"}], "/.", "B2EFRules"}], ")"}],
   "//", "ToValues"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[
   OverscriptBox[
    OverscriptBox[
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        InterpretationBox[
         StyleBox["r",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`r[],
         Editable->False], "4"]}], " ", 
      SuperscriptBox[
       RowBox[{
        InterpretationBox[
         StyleBox["Sin",
          ShowAutoStyles->False,
          AutoSpacing->False],
         Sin,
         Editable->False], "[", 
        InterpretationBox[
         StyleBox["\[Theta]",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`\[Theta][],
         Editable->False], "]"}], "2"]}], 
     StyleBox["~",
      FontColor->RGBColor[0., 0., 1.]]], 
    StyleBox["~",
     FontColor->RGBColor[0., 0., 1.]]],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[-$CellContext`r[]^4 Sin[
      $CellContext`\[Theta][]]^2, {}, 2 $CellContext`EF][],
  Editable->False]], "Output"]
}, Open  ]],

Cell["However in usual coordinates it is not regular at r = 2 M :", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{"g", "\[IndentingNewLine]", 
 RowBox[{"(", 
  RowBox[{
   RowBox[{"Det", "[", 
    RowBox[{"g", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], "/.", 
   RowBox[{
    RowBox[{"r", "[", "]"}], "\[Rule]", 
    RowBox[{"2", "M"}]}]}], ")"}]}], "Input"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           InterpretationBox[
            StyleBox["M",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`M,
            Editable->False]}], "+", 
          InterpretationBox[
           StyleBox["r",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`r[],
           Editable->False]}], 
         InterpretationBox[
          StyleBox["r",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`r[],
          Editable->False]]}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       FractionBox["1", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"2", " ", 
           InterpretationBox[
            StyleBox["M",
             ShowAutoStyles->False,
             AutoSpacing->False],
            $CellContext`M,
            Editable->False]}], 
          InterpretationBox[
           StyleBox["r",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`r[],
           Editable->False]]}]], ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       SuperscriptBox[
        InterpretationBox[
         StyleBox["r",
          ShowAutoStyles->False,
          AutoSpacing->False],
         $CellContext`r[],
         Editable->False], "2"], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", 
       RowBox[{
        SuperscriptBox[
         InterpretationBox[
          StyleBox["r",
           ShowAutoStyles->False,
           AutoSpacing->False],
          $CellContext`r[],
          Editable->False], "2"], " ", 
        SuperscriptBox[
         RowBox[{
          InterpretationBox[
           StyleBox["Sin",
            ShowAutoStyles->False,
            AutoSpacing->False],
           Sin,
           Editable->False], "[", 
          InterpretationBox[
           StyleBox["\[Theta]",
            ShowAutoStyles->False,
            AutoSpacing->False],
           $CellContext`\[Theta][],
           Editable->False], "]"}], "2"]}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "B"}], ",", 
     RowBox[{"-", "B"}]}], "}"}], ",", "0"}], "]"}]], "Output"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(\\*FractionBox[\\\"1\\\
\", \\\"0\\\"]\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Power", "::", "infy"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Infinite expression \[NoBreak]\\!\\(\\*FractionBox[\\\"1\\\
\", \\\"0\\\"]\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/infy\\\", ButtonNote -> \
\\\"Power::infy\\\"]\\)\"\>"}]], "Message", "MSG"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Infinity", "::", "indet"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Indeterminate expression \
\[NoBreak]\\!\\(\\*RowBox[{\\\"ComplexInfinity\\\", \\\"+\\\", \
\\\"ComplexInfinity\\\"}]\\)\[NoBreak] encountered. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/indet\\\", ButtonNote -> \
\\\"Infinity::indet\\\"]\\)\"\>"}]], "Message", "MSG"],

Cell[BoxData["Indeterminate"], "Output"]
}, Open  ]],

Cell["\<\
We want to check that v=Cte curves are geodesic
Let us look for the vector of the geodesic equation.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefScalarFunction", "[", "f", "]"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefScalarFunction", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"scalar function \"\>", "\[InvisibleSpace]", "f", 
   "\[InvisibleSpace]", "\<\". \"\>", "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm[
  "** ", xAct`xTensor`DefScalarFunction, ": Defining ", 
   "scalar function ", $CellContext`f, ". ", ""],
  Editable->False]], "Print"]
}, Open  ]],

Cell["They must be generated by something of the form: ", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"f", "[", 
      RowBox[{"r", "[", "]"}], "]"}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", "EF", "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"CTensor", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{
      InterpretationBox[
       StyleBox["f",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`f,
       Editable->False], "[", 
      InterpretationBox[
       StyleBox["r",
        ShowAutoStyles->False,
        AutoSpacing->False],
       $CellContext`r[],
       Editable->False], "]"}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", "EF", "}"}], ",", "0"}], "]"}]], "Output"]
}, Open  ]],

Cell["\<\
Let us determine the function f[].
We change k to the usual SZ chart\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"k", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"ToCTensor", "[", 
       RowBox[{"%", ",", 
        RowBox[{"{", "B", "}"}]}], "]"}], "/.", "EF2BRules"}], ")"}], "//", 
    "ToValues"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"k", "[", "\[Mu]", "]"}]}], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              RowBox[{
               InterpretationBox[
                StyleBox["f",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`f,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "]"}], " ", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]}], 
             RowBox[{
              RowBox[{"2", " ", 
               InterpretationBox[
                StyleBox["M",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`M,
                Editable->False]}], "-", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]}]],
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`f, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}], " ", 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]}], 
               RowBox[{
                 RowBox[{"2", " ", 
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "-", 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]}]]}]],
           Annotation[#, {1} -> $CellContext`f[
               $CellContext`r[]] (
               2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], 
            "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             InterpretationBox[
              StyleBox["f",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`f,
              Editable->False], "[", 
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False], "]"}],
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", 
              RowBox[{
                InterpretationBox[
                 StyleBox[
                  RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> 
                  False], $CellContext`f, Editable -> False], "[", 
                InterpretationBox[
                 StyleBox["r", AutoSpacing -> False, ShowAutoStyles -> False], 
                 $CellContext`r[], Editable -> False], "]"}]}]],
           Annotation[#, {2} -> $CellContext`f[
              $CellContext`r[]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", "4", "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4} -> 0, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[1, 0, 0], 2 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"\[Mu]"},
         {" "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{$CellContext`f[
      $CellContext`r[]] (
      2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], 
    $CellContext`f[
     $CellContext`r[]], 0, 0}, {$CellContext`B}, 0][$CellContext`\[Mu]],
  Editable->False]], "Output"]
}, Open  ]],

Cell["It does not satisfy yet the geodesic equation", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"k", "[", "\[Mu]", "]"}], 
    RowBox[{
     RowBox[{"CD", "[", 
      RowBox[{"-", "\[Mu]"}], "]"}], "[", 
     RowBox[{"k", "[", "\[Nu]", "]"}], "]"}]}], "//", "ToValues"}], "//", 
  "Simplify"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              RowBox[{
               InterpretationBox[
                StyleBox["f",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`f,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "]"}], " ", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], " ", 
              RowBox[{
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["f",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`f,
                 Editable->False], "\[Prime]",
                MultilineFunction->None], "[", 
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "]"}]}], 
             RowBox[{
              RowBox[{"2", " ", 
               InterpretationBox[
                StyleBox["M",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`M,
                Editable->False]}], "-", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]}]],
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`f, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}], " ", 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False], " ", 
                 RowBox[{
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`f, Editable -> False], "\[Prime]", 
                    MultilineFunction -> None], "[", 
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}], 
               RowBox[{
                 RowBox[{"2", " ", 
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "-", 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]}]]}]],
           Annotation[#, {1} -> $CellContext`f[
               $CellContext`r[]] (
               2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[] 
             Derivative[1][$CellContext`f][
               $CellContext`r[]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{
              InterpretationBox[
               StyleBox["f",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`f,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "]"}], " ", 
             RowBox[{
              SuperscriptBox[
               InterpretationBox[
                StyleBox["f",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`f,
                Editable->False], "\[Prime]",
               MultilineFunction->None], "[", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "]"}]}],
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`f, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "]"}], " ", 
                RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`f, Editable -> False], "\[Prime]", 
                   MultilineFunction -> None], "[", 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "]"}]}]}]],
           Annotation[#, {2} -> $CellContext`f[
               $CellContext`r[]] Derivative[1][$CellContext`f][
               $CellContext`r[]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", "4", "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4} -> 0, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[1, 0, 0], 2 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"\[Nu]"},
         {" "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{$CellContext`f[
      $CellContext`r[]] (
      2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[] 
    Derivative[1][$CellContext`f][
      $CellContext`r[]], $CellContext`f[
      $CellContext`r[]] Derivative[1][$CellContext`f][
      $CellContext`r[]], 0, 0}, {$CellContext`B}, 0][$CellContext`\[Nu]],
  Editable->False]], "Output"]
}, Open  ]],

Cell["But it is null whatever f", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"k", "[", "\[Mu]", "]"}], 
   RowBox[{"k", "[", 
    RowBox[{"-", "\[Mu]"}], "]"}]}], "//", "Simplify"}]], "Input"],

Cell[BoxData["0"], "Output"]
}, Open  ]],

Cell["So we must determine the function f[r].", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DefTensor", "[", 
  RowBox[{
   RowBox[{"Acc", "[", "\[Mu]", "]"}], ",", "M4"}], "]"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"** \"\>", "\[InvisibleSpace]", "DefTensor", 
   "\[InvisibleSpace]", "\<\": Defining \"\>", 
   "\[InvisibleSpace]", "\<\"tensor \"\>", "\[InvisibleSpace]", 
   RowBox[{"Acc", "[", "\[Mu]", "]"}], "\[InvisibleSpace]", "\<\". \"\>", 
   "\[InvisibleSpace]", "\<\"\"\>"}],
  SequenceForm["** ", xAct`xTensor`DefTensor, ": Defining ", "tensor ", 
   $CellContext`Acc[$CellContext`\[Mu]], ". ", ""],
  Editable->False]], "Print"]
}, Open  ]],

Cell[TextData[{
 "We set ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["A", "\[Mu]"], " ", "=", " ", 
    RowBox[{
     SuperscriptBox["k", "\[Nu]"], 
     RowBox[{
      SubscriptBox["\[Del]", "\[Nu]"], 
      SuperscriptBox["k", "\[Mu]"]}]}]}], TraditionalForm]]],
 "."
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IndexSet", "[", 
  RowBox[{
   RowBox[{"Acc", "[", "\[Nu]_", "]"}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"k", "[", "\[Mu]", "]"}], 
      RowBox[{
       RowBox[{"TensorDerivative", "[", 
        RowBox[{"k", ",", "CD"}], "]"}], "[", 
       RowBox[{"\[Nu]", ",", 
        RowBox[{"-", "\[Mu]"}]}], "]"}]}], "//", "ToValues"}], "//", 
    "Simplify"}]}], "]"}]], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            FractionBox[
             RowBox[{
              RowBox[{
               InterpretationBox[
                StyleBox["f",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`f,
                Editable->False], "[", 
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "]"}], " ", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], " ", 
              RowBox[{
               SuperscriptBox[
                InterpretationBox[
                 StyleBox["f",
                  ShowAutoStyles->False,
                  AutoSpacing->False],
                 $CellContext`f,
                 Editable->False], "\[Prime]",
                MultilineFunction->None], "[", 
               InterpretationBox[
                StyleBox["r",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`r[],
                Editable->False], "]"}]}], 
             RowBox[{
              RowBox[{"2", " ", 
               InterpretationBox[
                StyleBox["M",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`M,
                Editable->False]}], "-", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]}]],
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", 
              FractionBox[
               RowBox[{
                 RowBox[{
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`f, Editable -> False], "[", 
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}], " ", 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False], " ", 
                 RowBox[{
                   SuperscriptBox[
                    InterpretationBox[
                    StyleBox[
                    RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`f, Editable -> False], "\[Prime]", 
                    MultilineFunction -> None], "[", 
                   InterpretationBox[
                    StyleBox[
                    "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                    $CellContext`r[], Editable -> False], "]"}]}], 
               RowBox[{
                 RowBox[{"2", " ", 
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "-", 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]}]]}]],
           Annotation[#, {1} -> $CellContext`f[
               $CellContext`r[]] (
               2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[] 
             Derivative[1][$CellContext`f][
               $CellContext`r[]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox[
            RowBox[{
             RowBox[{
              InterpretationBox[
               StyleBox["f",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`f,
               Editable->False], "[", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "]"}], " ", 
             RowBox[{
              SuperscriptBox[
               InterpretationBox[
                StyleBox["f",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`f,
                Editable->False], "\[Prime]",
               MultilineFunction->None], "[", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False], "]"}]}],
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", 
              RowBox[{
                RowBox[{
                  InterpretationBox[
                   StyleBox[
                    RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`f, Editable -> False], "[", 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "]"}], " ", 
                RowBox[{
                  SuperscriptBox[
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"f"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`f, Editable -> False], "\[Prime]", 
                   MultilineFunction -> None], "[", 
                  InterpretationBox[
                   StyleBox[
                   "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                   $CellContext`r[], Editable -> False], "]"}]}]}]],
           Annotation[#, {2} -> $CellContext`f[
               $CellContext`r[]] Derivative[1][$CellContext`f][
               $CellContext`r[]], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", "4", "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4} -> 0, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[1, 0, 0], 2 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"\[Nu]"},
         {" "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{$CellContext`f[
      $CellContext`r[]] (
      2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[] 
    Derivative[1][$CellContext`f][
      $CellContext`r[]], $CellContext`f[
      $CellContext`r[]] Derivative[1][$CellContext`f][
      $CellContext`r[]], 0, 0}, {$CellContext`B}, 0][$CellContext`\[Nu]],
  Editable->False]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solvef", "=", 
  RowBox[{
   RowBox[{"DSolve", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Acc", "[", 
           RowBox[{"{", 
            RowBox[{"2", ",", "B"}], "}"}], "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{
          RowBox[{"f", "[", "Infinity", "]"}], "==", "1"}]}], "}"}], "/.", 
       RowBox[{
        RowBox[{"r", "[", "]"}], "\[Rule]", "r"}]}], "/.", 
      RowBox[{"f", "\[Rule]", "fV"}]}], ",", "fV", ",", "r"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Attributes", "::", "notfound"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Symbol \
\[NoBreak]\\!\\(\\*RowBox[{\\\"\\\\\\\"DSolveDispatchODE\\\\\\\"\\\"}]\\)\
\[NoBreak] not found. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/notfound\\\", ButtonNote -> \
\\\"Attributes::notfound\\\"]\\)\"\>"}]], "Message", "MSG"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"DSolve", "::", "bvnul"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"For some branches of the general solution, the given \
boundary conditions lead to an empty solution. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/DSolve/bvnul\\\", ButtonNote -> \
\\\"DSolve::bvnul\\\"]\\)\"\>"}]], "Message", "MSG"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"fV", "\[Rule]", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", "r", "}"}], ",", "1"}], "]"}]}], "}"}]], "Output"]
}, Open  ]],

Cell["\<\
We replace what we have found from the geodesic condition. It is simply f[r] \
= r.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "=", 
  RowBox[{"fV", "/.", "Solvef"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"Function", "[", 
  RowBox[{
   RowBox[{"{", "r", "}"}], ",", "1"}], "]"}]], "Output"]
}, Open  ]],

Cell["\<\
And now the acceleration vanishes. We check that now it is indeed a null \
geodesic vector.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"k", "[", "\[Mu]", "]"}], "//", "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"k", "[", "\[Mu]", "]"}], 
   RowBox[{"k", "[", 
    RowBox[{"-", "\[Mu]"}], "]"}]}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Acc", "[", "\[Mu]", "]"}], "//", "Simplify"}]}], "Input"],

Cell[BoxData[
 InterpretationBox[
  StyleBox[GridBox[{
     {
      StyleBox[GridBox[{
         {
          TagBox[
           TooltipBox[
            FractionBox[
             InterpretationBox[
              StyleBox["r",
               ShowAutoStyles->False,
               AutoSpacing->False],
              $CellContext`r[],
              Editable->False], 
             RowBox[{
              RowBox[{"2", " ", 
               InterpretationBox[
                StyleBox["M",
                 ShowAutoStyles->False,
                 AutoSpacing->False],
                $CellContext`M,
                Editable->False]}], "-", 
              InterpretationBox[
               StyleBox["r",
                ShowAutoStyles->False,
                AutoSpacing->False],
               $CellContext`r[],
               Editable->False]}]],
            RowBox[{
              RowBox[{"{", "1", "}"}], "\[Rule]", 
              FractionBox[
               InterpretationBox[
                StyleBox[
                "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                $CellContext`r[], Editable -> False], 
               RowBox[{
                 RowBox[{"2", " ", 
                   InterpretationBox[
                    StyleBox[
                    RowBox[{"M"}], AutoSpacing -> False, ShowAutoStyles -> 
                    False], $CellContext`M, Editable -> False]}], "-", 
                 InterpretationBox[
                  StyleBox[
                  "r", AutoSpacing -> False, ShowAutoStyles -> False], 
                  $CellContext`r[], Editable -> False]}]]}]],
           
           Annotation[#, {
             1} -> (2 $CellContext`M - $CellContext`r[])^(-1) \
$CellContext`r[], "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["1",
            RowBox[{
              RowBox[{"{", "2", "}"}], "\[Rule]", "1"}]],
           Annotation[#, {2} -> 1, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", "3", "}"}], "\[Rule]", "0"}]],
           Annotation[#, {3} -> 0, "Tooltip"]& ]},
         {
          TagBox[
           TooltipBox["0",
            RowBox[{
              RowBox[{"{", "4", "}"}], "\[Rule]", "0"}]],
           Annotation[#, {4} -> 0, "Tooltip"]& ]}
        },
        AutoDelete->False,
        GridBoxDividers->{
         "ColumnsIndexed" -> {
           1 -> RGBColor[1, 0, 0], 2 -> RGBColor[1, 0, 0]}}],
       FontSize->Small], 
      StyleBox[GridBox[{
         {"\[Mu]"},
         {" "}
        },
        GridBoxSpacings->{"Columns" -> {
            Offset[0.], {
             Offset[0.034999999999999996`]}, 
            Offset[0.]}, "ColumnsIndexed" -> {}, "Rows" -> {{
             Offset[0.]}}, "RowsIndexed" -> {}}],
       FontSize->Rational[39, 4]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Center}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.034999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   ShowAutoStyles->False,
   AutoSpacing->False],
  xAct`xCoba`CTensor[{(
      2 $CellContext`M - $CellContext`r[])^(-1) $CellContext`r[], 1, 0, 
    0}, {$CellContext`B}, 0][$CellContext`\[Mu]],
  Editable->False]], "Output"],

Cell[BoxData["0"], "Output"],

Cell[BoxData["0"], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Surface Gravity", "Subsubsection"],

Cell["\<\
Let us consider the Killing - Vector field of time translations\
\>", "Text"],

Cell[BoxData[
 RowBox[{
  RowBox[{"KV", "=", "KVt"}], ";"}]], "Input"],

Cell["It is null at the horizon.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"g", "[", 
   RowBox[{
    RowBox[{"-", "\[Mu]"}], ",", 
    RowBox[{"-", "\[Nu]"}]}], "]"}], 
  RowBox[{"KV", "[", "\[Mu]", "]"}], 
  RowBox[{"KV", "[", "\[Nu]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"%", "/.", 
  RowBox[{
   RowBox[{"r", "[", "]"}], "\[RuleDelayed]", 
   RowBox[{"2", "M"}]}]}]}], "Input"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", 
     InterpretationBox[
      StyleBox["M",
       ShowAutoStyles->False,
       AutoSpacing->False],
      $CellContext`M,
      Editable->False]}], "+", 
    InterpretationBox[
     StyleBox["r",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`r[],
     Editable->False]}], 
   InterpretationBox[
    StyleBox["r",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`r[],
    Editable->False]]}]], "Output"],

Cell[BoxData["0"], "Output"]
}, Open  ]],

Cell[TextData[{
 "Surface gravity (Wald\[CloseCurlyQuote]s book 12.5.14) is  defined as ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["\[Kappa]", 
     RowBox[{"2", " "}]], " ", "=", " "}], TraditionalForm]]],
 " -1/2 ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SubscriptBox["\[Del]", "\[Mu]"], 
     SubscriptBox["V", "\[Nu]"]}], 
    RowBox[{
     SuperscriptBox["\[Del]", "\[Mu]"], 
     SuperscriptBox["V", "\[Nu]"]}]}], TraditionalForm]]]
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"(", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "1"}], "/", "2"}], 
    RowBox[{
     RowBox[{"CD", "[", 
      RowBox[{"-", "\[Mu]"}], "]"}], "@", 
     RowBox[{"KV", "[", 
      RowBox[{"-", "\[Nu]"}], "]"}]}], 
    RowBox[{
     RowBox[{"CD", "[", "\[Mu]", "]"}], "@", 
     RowBox[{"KV", "[", "\[Nu]", "]"}]}]}], "//", "ToValues"}], 
  ")"}], "\[IndentingNewLine]", 
 RowBox[{"%", "/.", 
  RowBox[{
   RowBox[{"r", "[", "]"}], "\[RuleDelayed]", 
   RowBox[{"2", "M"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"Sqrt", "@", "%"}], ",", 
   RowBox[{"Assumptions", "\[Rule]", 
    RowBox[{"M", ">", "0"}]}]}], "]"}]}], "Input"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox[
   InterpretationBox[
    StyleBox["M",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`M,
    Editable->False], "2"], 
  SuperscriptBox[
   InterpretationBox[
    StyleBox["r",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`r[],
    Editable->False], "4"]]], "Output"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"16", " ", 
   SuperscriptBox[
    InterpretationBox[
     StyleBox["M",
      ShowAutoStyles->False,
      AutoSpacing->False],
     $CellContext`M,
     Editable->False], "2"]}]]], "Output"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"4", " ", 
   InterpretationBox[
    StyleBox["M",
     ShowAutoStyles->False,
     AutoSpacing->False],
    $CellContext`M,
    Editable->False]}]]], "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1298, 723},
WindowMargins->{{5, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"10.4 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 11, \
2016)",
StyleDefinitions->"Default.nb"
]

